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ABSTRACT 


ICUBase  -  A  distributed  database  for  support  of  clinical 
data  input  and  coding  on  the  World  Wide  Web 

(Under  the  direction  of  John  W,  Loonsk) 

The  ICUBase  project  involved  the  creation  of  a  generic,  modular  application  for  input 
and  coding  of  medical  data  via  the  World  Wide  Web.  A  distributed  database  is  used  in 
conjunction  with  modular.  Hypertext  Markup  Language  input  forms  to  create  a  scalable 
application  interface.  A  unique  navigation  system  was  also  developed  to  facilitate  user 
interface. 

Clinical  coding  is  accomplished  by  means  of  “coding  engines”  that  utilize  climcal 
coding  databases  to  generate  accurate  medical  codes  during  data  input.  The  coding 
engines  are  modular  so  that  any  externally  written  application  may  incorporate  this 
functionality  for  use  in  new  clinical  systems. 

Physicians  using  the  system  were  able  to  accurately  code  medical  data  using  these 
external,  web-based  resources.  Overall,  trial  physician  users  were  satisfied  with  the 
application  interface  and  die  coding  engines. 
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Background 

The  purpose  of  this  Master’s  Thesis  and  the  accompanying  ICUBase  project  is  to 
answer  three  vital  questions  regarding  Internet-based  climcal  uiformation  systems:  1)  Can 
a  standalone  database  application  be  easily  ported  to  the  web  for  information  input  and 
retrieval?  2)  Can  the  web  paradigm  be  used  to  allow  physicians  to  use  Internet  resources 
associated  with  another  web-based  application?  And  3)  Can  physicians  accurately  and 
quickly  code  medical  data  using  a  web-based  data  model? 

The  project  of  developing  a  World  Wide  Web  (WWW)  -based  clinical  information 
system  began  as  a  collaboration  between  the  Department  of  Surgery  at  the  University  of 
North  Carolina  (UNC)  Hospitals  and  the  Office  of  Information  Systems  at  the  UNC 
Medical  School  in  June,  1996. 

The  ICUBase  was  originally  developed  at  UNC  as  a  standalone  database  for  collecting 
clinical  information  at  the  point  of  care.  The  system  requires  physicians  to  log  onto  a 
computer  located  in  the  Surgical  Intensive  Care  Unit  (ICU)  of  UNC  Hospitals  and  record 
daily  information  on  patients  on  the  surgical  service.  The  database  and  interface  were 
written  and  designed  entirely  in  Microsoft  FoxPro®  database  language  by  Dr.  Robert 
Rutledge,  Associate  Chief  of  Staff  for  Clinical  Outcomes  and  Effectiveness  for  UNC 
Hospitals  and  Associate  Professor  of  Surgery,  Department  of  Surgery,  University  of 
North  Carolina  at  Chapel  HiL  Since  its  inception,  the  ICUBase  has  facilitated  the 
collection  of  clinical  information  for  statistical  analysis  in  the  ICU.  However,  due  the 
expanding  number  of  physicians  using  the  system  and  the  geographic  separation  of  many 
of  the  care  areas  from  the  hardware,  a  networked  solution  using  a  single  database  was 
desired  to  advance  the  information  collection  needs  of  the  surgery  department. 


UNC  Hospitals  currently  administers  a  Token  Ring  network  supporting  a  distributed 
Clinical  Work  Station  running  on  an  ffiM  OS/2®  platform*.  Applications  for  the 
workstation  are  developed  by  the  hospital’s  Information  Systems  Division  in  the  Easel^ 
language.  The  system  gives  care  providers  the  capability  to  query  the  central  clinical  data 
repository  and  other  legacy  systems  for  patient  information  in  real  time. 

Introduction 

Support  for  the  World  Wide  Web  Paradigm 

Distributed  computing  technology  is  continually  focused  on  Internet  and  intranet  based 
applications  The  continuing  development  of  World  Wide  Web-based  climcal  information 
systems  and  tools  is  rapidly  expanding  the  use  and  knowledge  of  these  systems  . 
ICUBase  was  chosen  as  a  target  for  this  development  for  reasons  that  have  been 
documented  in  the  recent  literature. 

1.  Rapid  Prototyping  -  Time  and  man  hour  savings  for  WWW-based  development 
have  been  documented  in  the  literature^  ICUBase  was  not  developed  for  the 
Clinical  Work  Station  and  could  not  be  quickly  ported  into  the  Easel  language. 
In  this  implementation,  the  original  screens  from  ICUBase  were  “mocked  up” 
in  the  Hyper  Text  Markup  Language  (HTML)  in  less  than  10  hours  after  the 
project  began. 

2.  Acceptance  of  Web  Paradigm  by  Clinicians  -  Evaluation  of  the  acceptance  of 
clinical  systems  is  a  major  thrust  of  the  science  of  Medical  Informatics. 
Documentation  of  clinician  acceptance  of  WWW-based  information  systems^ 
has  shown  that  the  new  paradigm  allows  for  a  simple  interaction  and  is  easily 

'  J.E.  Hammond,  R.G.Bcrger,  T.S.  Carey,  S.M.  Fakhiy,  R.  Rutledge,  TJ.  Qeveland,  J.P.  Kichak,  N.M.  Tsongalis, 

MJ.  Dempsey,  C.F.  Ayscue.  Report  of  the  Clinical  Woricsiation  and  Clinical  Data  Repository  Utilization  at  UNC 
Hospitals,  ProcAnnu  Symp  ComputAppl  Med  Care,  pp  276-280, 1994. 

*  James  J  Cimino,  MD,  Socrates  A.  Socratous,  Paul  D.  Clayton,  PhD,  Internet  as  Clinical  Information  System: 
/^plication  Development  Using  the  World  Wide  Web,  JAMIA  2:273-284, 1995. 

^Keith  E.  Willard  MD,  MSEE,  J.H.  HaUgren  BS,  B.  Sielaff  PhD,  D.  P.  ConneUy  MD,  PhD,  The  Deployment  of  a 
World  Wide  Web  (W3)  Based  Medical  Information  System,  ProcAnnu  Synq>  ComputAppl  Med  Care,  pp  771-775, 
1995. 

*  IS.  Greenspun  P,  Fackler,  J,  Cimino  C,  Szolovits  P,  Building  National  Electronic  Medical  Record  Systems 
via  die  World  Wide  Web,  JAMIA,  3;191-207, 1995 

’  Lowe  HJ,  Lomax  EC,  Polonkey  SE.  The  World  Wide  Web:  a  review  of  an  emerging  Internet-based  technology  for 
the  distribution  of  biomedical  information.  JAMIA  3:1-14, 1996. 
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integrated  into  the  medical  domain.  The  addition  of  OS/2®  compatible  web 
browsers  onto  the  UNC  Clinical  Workstation,  in  addition  to  the  availability  of 
the  technology  on  networked  computers  throughout  the  hospital,  gives 
superior  access  for  clinicians  to  the  ICUBase  distributed  database. 

3.  Access  to  r*iiiiir:fl1  Information  -  With  immediate  access  to  climcal  information 
such  as  drug  databases  and  coding  data,  the  WWW  interface  provides  a  unique 
environment  for  the  clinical  information  input  and  presentation  at  the  point  of 
care^  The  question  of  when  and  how  to  present  this  information  in  the  course 
of  a  patient  encounter  has  been  an  ongoing  issue  with  this  project 

4.  Cross  Platform  Communication  -  The  WWW  easUy  provides  cross  platform 
applications  for  use  in  a  distributed  environment  via  web  browsers  developed 
for  a  multitude  of  platforms. 

5.  Flexible  Application  Environment  -  As  software  and  systems  change,  the  web 
based  interface  can  keep  pace  with  the  latest  technology  without  having  to 
deploy  an  entirely  new  system  throughout  the  hospital. 

6.  Security  Capabilities  -  With  authentication  and  encryption  built  into  the  web 
paraHigm,  the  Capability  for  secure  access  and  transmission  has  existed  from 
the  very  beginning  of  the  project. 

Hie  Need  for  Clinical  Coding 

The  first  implementation  of  ICUBase  provided  clinical  coding  features  in  the  “problem” 
{inri  “procedures”  documentation  screens  from  a  short  list  of  the  most  common  codes 
physicians  would  see  in  the  ICU.  Physicians  using  the  system  were  required  to  use  these 
terms  largely  from  memory  which  sometimes  resulted  in  inefficient  coding  and  incorrect 
coding  of  medical  data. 

The  accurate  clinical  coding  is  of  major  importance  to  modem  computer-based  patient 
records  (CPR).  In  the  early  eighties.  Waters  and  Murphy’  recommended  that  future 


‘  Ncnov  V,  Klopp  J,  Remote  Analysis  of  Physiological  Data  from  Neurosurgical  ICU  Patients, /AMM  3:  318-327. 
1996 

’Waters,  Kathleen  and  Murphey.Gietchen.  Systems  Analysis  and  Computer  Applicjatiops  m  He^tb  MPUPanop 
Management  Aspen  Systems  Corporation,  1983. 
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medical  information  systems  designers  require  that  “all  medical  conditions  be  categorized 
in  a  way  that  is  understood  by  both  clinical  and  analytical  users.”  This  requirement  was 
based  on  years  of  research  on  paper  based  medical  records  and  the  frustration  of  dealing 
with  non-standard  formats,  lack  of  continuity  and  loss  of  medical  data  in  these  medical 
records. 

The  impediments  to  creating  computer-based  patient  records  are  quickly  evaporating. 
Two  of  these  limiting  factors  were  raw  computing  speed  and  lack  of  organization  for  the 
record  that  would  be  compatible  with  all  types  Of  data  acquisition  .  Although 
modem  research  has  overcome  these  techmcal  boundaries  and  many  others,  some  unique 
non-technical  boundaries  remain.  A  major  obstacle  is  the  lack  of  a  standardized 
vocabulary  for  medical  records  coding? 

In  the  1980’s,  several  systems  already  existed  to  code  medical  data:  SNOMED 
(Systematized  Nomenclature  for  Medicine),  ICD9-CM  (International  Classification  of 
Diseases,  Ninth  Edition,  with  Clinical  Modifications)  and  others.  However,  very  few 
computer-based  coding  systems  existed  for  translating  medical  data  to  these  codes  for 
storage  and  use.  The  storage,  retrieval  and  processing  of  medical  data  are  largely 
dependent  on  the  coding  system  used*°,  but  most  hospitals,  including  UNC,  rely  on  paper 
methods  for  the  recording  of  these  codes. 

In  1991,  the  Institute  of  Medicine  published  The  Computer-Based  Patient  Record^  in 
an  effort  to  spur  the  effort  toward  creation  of  the  CPR.  The  report  concluded  that 
standards  must  be  developed  for  exchange  of  data  between  systems  and  that  a 
standardized  vocabulary  will  play  a  large  part  to  this  end.  The  institute  reported  eight 
critical  activities  to  help  advance  CPR  development!^ 


‘  Waters,  Kathleen  and  Muipbey,  Gietcben.  Systems  Analysis  and  Computer  Aopliciations  in  Health  Inforoiation 
Management  Aspen  Systems  Corporation,  1983. 

^  Board  of  Directors  of  the  American  Medical  Informatics  Association,  “Standards  for  Medical  Identifiers,  Codes,  and 
Messages  Needed  to  Create  an  Efficient  Computer-stored  Medical  Record”,  JAMIA,  1:1  1994.  pp  1-7. 

Waters,  Kathleen  and  Muiphey,  Gretchen.  Systems  Analysis  and  Computer  Appliciations  in  Health  Infomatipn 
Management  Aspen  Systems  Corporation,  1983. 

“  Dick,  R.M.  and  Steen,  E3,  The  Computer-Based  Patient  Record.  Institute  of  Medicine,  Washington,  D.C..  1991. 
Dick,  R.M.  and  Steen,  E3.  The  Computer-Based  Patient  Record.  Institute  of  Medicine,  Washington,  D.C.,  1991 . 
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The  Institute  of  Medidne’s  Conunittee  on  Improving  flie  Patient  Record. 
Critical  Activities  to  Help  Advance  CPR  Development: 

1)  Identification  and  understanding  of  CPR  design  requirements 

2)  Development  of  standards 

3)  CPR  and  CPR  systems  research  and  development 

4)  Demonstrations  of  effectiveness,  costs  and  benefits  of  CPR  systems 

5)  Reduction  of  legal  constraints  for  CPR  uses  as  well  as  enhancement  of  legal  protection 
for  patients 

6)  Coordination  of  resources  and  support  for  CPR  development  and  diffusion 

7)  Coordination  of  information  and  resources  for  secondary  patient  record  databases 

8)  Education  and  training  of  developers  and  users 


Figure  1  Critical  Activities  to  Help  Advance  CPR  Development 

The  Institute  of  Medicine  study  goes  on  to  recommend  twelve  attributes  that 
comprehensive  CPR  systems  must  possess.  One  of  these  recommendations  is  structured 
data  collection  and  storage  of  information  using  a  defined  vocabulary. 


“Effective  retrieval  and  use  of  health  care  information  in  the  CPR  depend  in 
a  large  part  on  the  consistency  with  which  a  CPR  content  names  and 
describes  clinical  findings,  clinical  problems,  procedures  and  treatments. 

The  development  and  widespread  dissemination  of  the  contents  and 
techniques  of  effective  vocabulary  control  of  high  priority  elements  are 
major  intellectual,  technical  and  organizational  challenged.” 

In  today’s  business  and  patient  care  environments,  health  care  professionals  need 
increasing  amounts  of  accurate  data  in  machine-readable  form  to  support  intelligent 
decision  making.  The  representation  of  patient  information  is  a  complex  problem.  Ideally, 
it  should  be  addressed  in  a  way  that  allows  multiple  uses  of  the  same  data,  including 
simple  manual  review,  sharing  and  pooling  across  institutions,  and  as  input  to  knowledge- 
based  decision  support  systems.  Coding  information  with  controlled  medical  vocabularies 
will  help  solve  some  of  these  complex  problem^'’. 


'*Dick,  R.M.  and  Steen,  E,B.  The  r.nmnuter-Based  Patient  Record.  Institute  of  Medicine,  Washington,  D.C.,  1991. 

Cimino,  James  J.,  “Data  Storage  and  Knowledge  Representation  for  Clinical  Woikstations”,  httemational  Journal 
qf  Bio-Medical  Computing,  34(1-4),  1994,  pp  185-194. 
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The  web  version  of  ICUBase  utilizes  “coding  engines”  to  enable  physicians  to 
accurately  code  medical  data  into  ICD-9  and  UNC  Hospital  Procedure  codes.  The 
methodology  for  the  development  of  these  engines  is  described  below. 

Methods 

Conversion  to  a  WWW  based  interface 

The  conversion  of  ICUBase  to  a  WWW-based  interface  involved  a  multitude  of  steps. 
In  the  future,  standalone  database  conversions  may  be  much  simpler  with  tools  being 
developed  by  major  software  manufacturers.  However,  design  of  forms  navigation  will 
continue  to  be  a  problem  for  designers  because  of  the  stateless  nature  of  the  web.  The 
following  discussion  is  a  breakdown  of  the  steps  used  to  convert  the  ICUBase  database 
and  to  provide  a  generic  navigation  tooL  Functional  and  design  problems  with  each 
implementation  step  are  also  discussed. 

1.  Copy  current  interface  into  HTML 

The  current  interface  style  for  ICUBase  was  duplicated  in  HTML  because  of  the 
increased  speed  of  development.  By  using  the  interface  design  of  the  standalone 
application,  HTML  allowed  for  very  rapid  “mock  up”  of  the  web  based  application 
screens.  The  entire  process  took  just  over  one  week  to  complete  including  the  creation  of 
a  “forms  navigator”  to  display  the  static  pages. 

Ten  screen  shots  were  taken  of  the  actual  ICUBase  product  so  that  each  interface 

screen  could  be  duplicated.  The  screens,  taken  from  the  original  database  are: 

Admission  Demographics  (2) 

History  and  Subjective  Evaluation  (2) 

Discharge 
Vital  Signs  (2) 

Procedures  (2) 

In  addition,  two  screens,  ‘Tatient  Complications”  and  ‘Tatient  Lines”  were  created  but 
are  not  used  in  the  final  version  of  the  application  because  of  changes  in  the  way  problems 
and  procedures  are  coded. 
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2.  Migrate  database  from  Microsoft  FoxPro®  to  Microsoft  SQL  Server® 

The  migration  of  tables  and  data  from  one  database  to  another  was  completed 
seamlessly  using  Microsoft  Access®  as  an  intermediary  database.  The  FoxPro®  tables 
indexes  and  data  were  converted  to  the  new  format  by  importing  the  tables  directly  into 
Access®.  Non-indexed  tables  were  reindexed  m  Access®.  Table  relations,  which  do  not 
carry  over  from  FoxPro®,  were  added  to  the  new  database.  Datatypes  were  checked  to 
assure  compatibility  across  platforms.  For  instance,  an  Access®  “memo”  field  is  used  to 
store  up  to  64  kilobytes  of  data.  This  equates  to  a  “text”  field  in  FoxPro®. 

After  full  conversion  of  the  database,  the  data  was  then  placed  into  a  Microsoft  SQL 
Server®  database  utilizing  the  Open  DataBase  Connectivity®  (ODBC)  standard  and  the 
Microsoft  Access  Upsizing  Wizard®.  Together,  the  wizard  and  ODBC  handle  both  the 
conversion  of  datatypes  and  placement  of  the  data  into  newly  created  tables. 
Requirements  for  use  of  this  system  include  a  Microsoft  SQL  Server®  database  and  a 
network  connection. 

During  the  course  of  the  project,  it  was  found  that  there  was  a  need  to  create  a 
Microsoft  NT  account  on  the  host  network  of  the  database.  The  account  allows  for 
ODBC  connectivity  to  the  database  under  the  default  “named  pipes”  or  “Windows  NT® 
Network”  sharing  parameter.  However,  this  approach  is  impractical  for  database 
designers  who  are  physically  or  logically  outside  of  the  host  network  or  where  windows 
NT  data  cannot  reach  because  of  network  security  (such  as  UNC  Hospitals).  Using  the 
Microsoft  SQL  Server  Client  Configuration  Utility®,  it  is  possible  to  change  the  default 
network  setting  to  TCP/IP,  thus  enabling  ODBC®  connectivity  in  remote  locations  to  a 
server  using  its  Internet  Protocol  (IP)  address. 

3.  Link  Database  fields  to  forms  via  Cold  Fusion® 

Once  the  dataha<tp.  was  fully  exported  to  SQL  Server®,  the  HTML  pages  were 
“connected”  to  the  database.  At  the  time  this  project  was  started,  there  were  limited 
resources  to  connect  databases  and  active  HTML  pages  together.  The  product  chosen  for 
the  task  was  Allaire  Inc.  Cold  Fusion®  1.5  which  runs  on  the  server  as  either  service  or  as 
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a  CGI  (Common  Gateway  Interface)  program.  Cold  Fusion®  is  unique  in  that  it  uses  a 
proprietary  language  to  process  SQL  (Structured  Query  Language)  statements  imbedded 
in  the  HTML  documents  on  an  ODBC®  datasource. 

Several  features  of  Cold  Fusion®  were  used  during  this  project.  First,  mult^le  queries 
may  be  processed  sequentially,  with  the  results  of  one  query  being  passed  to  the  next.  For 
instance,  if  one  wanted  to  know  who  was  the  attending  physician  in  the  ICU  on  a 
particular  day.  Cold  Fusion®  could  process  this  request  and  return  the  name  of  the 
physician.  Subsequently,  if  one  wanted  to  know  this  physician’s  department  name,  the 
nstmp.  of  the  physician  returned  from  the  first  query  could  be  used  in  a  second  query  of 
departments.  Another  flexibility  is  the  IF... THEN... ELSE  capabilities  of  the  Cold 
Fusion®  language  which  allow  for  HTML  processing  based  on  the  results  of  a  query. 
This  allows  for  simple  user  feedback-  Le.  IF  the  results  of  a  query  returned  more  than  one 
record  THEN  one  could  to  display  a  particular  data  format  ELSE  display  the  statement 
“no  records  returned”  if  it  did  not 

Using  Cold  Fusion®  scripting,  SQL  queries  were  prepared  so  all  data  input  fields  in 
the  HTML  forms  were  matched  to  the  datafields  of  the  database.  Because  connections  to 
the  server  are  not  “stated”  (continuous),  the  forms  themselves  are  not  actually  connected 
to  the  database.  This  means  that  the  input  by  the  physician  is  “static”  until  the  form  itself 
is  sent  to  the  server.  Therefore,  real  time  data  checking,  discussed  later,  is  an  essential 
part  of  the  web  version  of  ICUBase.  Additionally,  since  the  data  sent  to  the  server  is  in 
raw  text  format,  several  SQL  queries  were  required  to  convert  data  types  to  database 
acceptable  formats  (example:  as  date  or  numeric)  at  the  server. 

The  ability  for  Cold  Fusion®  scripting  to  return  query  results  to  static  HTML  pages 
was  also  utilized  to  return  results  of  queries  to  active  screens.  A  separate  lookup  table 
was  used  to  store  firequently  accessed  information  such  as  resident,  attending  and  fellow 
names,  admission  reasons  and  chronic  health  evaluation  codes.  The  data  from  this  table  is 
presented  to  the  user  in  dropdown  boxes  formed  from  outputting  query  results  from  this 
table.  Users  select  the  input  data  from  the  dropdown  box  which  is  then  placed  in  the 
appropriate  data  table  of  the  patient  specific  data  when  the  form  is  “posted”  to  the  server. 
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The  navigation  scheme  later  uses  these  same  queries  to  return  user  input  information  to 
active  screens. 

4.  Design  a  navigation  system  to  incorporate  the  forms 

A  navigation  system  was  designed  to  bring  the  forms  together  into  a  coherent 
application.  Many  possibilities  existed  for  the  design  of  a  navigation  system,  including  the 
introduction  of  more  HTML  forms.  This  option  was  not  used  because  feedback  to  the 
user  would  be  more  difficult  to  provide.  Instead,  a  system  using  navigator  “frames”  and 
Javascript™*^  was  developed  for  its  ability  to  provide  a  clean,  functional  interface. 

Two  menu  systems  were  designed  to  facilitate  user  interaction.  The  first  menu  enables 
the  user  to  choose  from  “New  Admission”,  “Progress  Note”,  ‘Discharge”  or  “Quit”. 
Quitting  the  application  closes  the  browser  window  using  a  JavaScript™  “Window.Close” 
command.  The  ‘^ew  Admission”  button  allows  the  user  to  input  information  into  the 
database  concerning  new  patients.  Clicking  on  “Progress  Note”  requires  a  user  to  select  a 
patient  from  the  active  patient  listing  in  the  right  hand  window  to  process  a  note  on  an 
active  patient  in  the  database.  Selecting  “Progress  Note”  actually  “submits”  the  form  on 
the  right  hand  side  of  the  screen  for  processing.  Currently,  the  “Progress  Note”  interface 
screen  does  not  allow  the  physician  to  alter  the  patient’s  demographics.  This  interface  is 
similar  to  the  original  ICUBase  application.  The  ‘Discharge”  button  allows  the  user  to 
view  the  patient’s  complete  problem  and  procedure  lists  and  sets  the  “active  record” 
variable  in  the  database  to  “No.”  If  no  patient  is  selected  before  clicking  “Progress  Note” 
or  ‘Discharge”,  the  patient  selection  form  is  submitted  anyway  and  an  error  is  trapped 
returning  the  user  to  the  starting  screen.  Clicking  on  any  button  changes  the  application’s 
“state”  variable  that  tells  the  application  which  buttons  to  display  in  the  second  menu. 

The  second  menu  system  provides  access  to  the  sub  forms  within  the  ICUBase 
i'^plication.  These  screens  include  demographics,  vital  signs,  subjective  assessment, 
problem  list  and  procedures.  In  this  menu  design,  the  current  screen  button  is  depicted  as 
pressed,  while  the  remainder  are  in  the  nonpressed  position.  Visited  screen  buttons  are 
colored  red  after  the  user  leaves  the  page. 

“  McComb,  Gordon  JavaScript  Source  Book.  Wiley  Computer  Publishing,  1996  pp  431-460. 
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The  form  submission  process  requires  consistency.  Therefore,  instead  of  creating 
multiple  forms  processors,  a  main  forms  processor  page  was  created.  In  this  scheme,  each 
Hata  input  form  has  a  name  consistent  with  its  content  (example:  “vitals”  is  the  form  name 
for  the  vital  signs  screen).  When  the  form  is  submitted  to  the  main  forms  processor,  the 
form’s  namp.  is  used  to  redirect  the  form  contents  to  a  sub-processor  page  for 
th^t  specific  information.  Upon  completion  of  the  information  specific  sub-processor 
page,  the  process  returns  to  the  main  forms  processor  and  continues.  The  forms  processor 
then  retrieves  and  posts  the  next  requested  input  form  page  back  to  the  user. 

Using  JavaSoft™  functions  to  control  the  submission  of  forms  in  a  secondary  frame 
requires  that  the  main  form  processor  have  JavaScript™  components.  One  of  the  first 
errors  encountered  by  this  application  was  that  the  main  forms  processor  was  slower  than 
the  JavaScript™  menu  functions.  Opening  the  next  requested  input  form  directly  from  the 
menu  led  to  the  current  input  form  being  submitted  but  data  not  entered  into  the  database 
quickly  enough  to  post  required  data  to  the  next  form.  A  new  methodology  was  devised 
where  input  form  submission  was  followed  by  an  update  of  the  database  and  then  a 
JavaScript™  call  by  the  main  forms  processor  to  open  the  next  page  requested  by  the 
user.  The  next  input  form  is  determined  from  the  button  in  the  navigation  bar  that  was 
pressed  by  the  user.  The  variable  indicating  the  button  pressed  is  stored  in  the 
JavaScript™  “cookie”  (discussed  below)  until  needed  by  the  function. 

The  final  problem  with  JavaScript  navigation  was  discovered  when  the  browser  was 
resized  on  the  client’s  screen.  All  stored  JavaScript™  variables  are  reset  upon  reload  of 
the  form  which  is  initiated  by  the  resize  of  the  browser  window.  This  leads  to  the 
application  losing  all  navigation  data.  Two  possible  solutions  were  conceived.  The  first 
involved  ‘locking”  the  application  window  size  by  removing  the  resize  buttons.  Instead, 
the  JavaScript  “cookie”  function  was  used  to  store  the  current  navigation  state.  A 
browser  “cookie”  is  a  text  field  written  into  memory  that  does  not  reset  when  the  browser 
is  resized.  After  resizing,  each  form  on  the  screen  is  reloaded  and  the  navigation  form 
simply  calls  its  variables  from  the  “cookie”  instead  of  stored  JavaScript™  variables. 

With  the  creation  of  the  navigation  scheme,  it  was  important  to  disable  features  of  the 
browser  that  would  enable  users  to  change  information  in  the  database  in  error.  Two  of 
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these  features,  the  “bacl^’  and  “forward”  buttons  use  the  browser  cache  to  recall  pages 
that  have  been  stored  in  active  memory.  The  navigation  system,  therefore,  includes  the 
ability  for  the  user  to  go  “back”  to  previously  edited  screens  via  the  navigation  buttons  in 
the  second  menu  system.  The  input  forms  use  Cold  Fusion®  queries  to  return  previously 
input  information.  In  cases  where  a  dropdown  box  was  used  to  input  the  information  -  the 
results  of  the  return  query  are  simply  defaulted  to  the  top  of  the  dropdown  box  while  the 
remainder  of  the  query  returns  the  original  result  of  the  lookup  to  the  hidden  line  below 
the  entry. 

The  browser  “back”  and  “forward”  buttons  are  disabled  in  two  unique  ways.  First,  the 
application  is  launched  into  a  browser  window  without  the  navigation  tools  using  the 
JavaScript  “OpenWindow”  function  call  In  this  way,  the  user  cannot  activate  the 
browser’s  menu  system  or  toolbar.  Second,  the  browser  cache  itself  is  disabled  using  an 
internal  HTML  <META>  tag  which  is  supported  for  by  advanced  browsers  (Netscape 
3.0®  and  Microsoft  Internet  Explorer  3.0®)  and  ignored  by  others. 

5.  Redesign  the  database  and  normalize  the  tables 

Once  the  navigation  sequence  was  created,  the  database  itself  required  analysis.  To 
improve  functionality,  it  became  necessary  to  reorganize  the  database  to  further  support 
the  web  environment  and  add  more  flexibility  to  the  original  application.  The  origmal 
ICUBase  consisted  mainly  of  three  unique  data  tables.  The  first,  an  admission  table, 
contained  all  information  concerning  the  patient’s  admission  data.  The  second,  a  daily 
table,  contained  all  information  concerning  the  patient’s  day  to  day  treatment  after 
admission  including  a  daily  problem  list.  Finally,  a  procedures  table  kept  track  of 
individual  patient  procedures. 

Once  the  database  was  connected  to  the  web  based  application  the  tables  were 
normalized  to  improve  storage  and  retrieval  of  patient  data..  The  four  original  tables  were 
divided  into  11  unique  tables  and  7  “lookup”  tables.  Each  new  table  was  then  ‘Iceyed” 
using  unique  table  rows.  First,  a  “Patient”  table  was  created  firom  the  “Admission  table 
by  removing  aU  patient  specific  information.  The  patient  table  was  then  “keyed”  to  the 
unique  UNC  identification  number.  This  data  field  was  left  as  text  because  of  the  unique 
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check  rfigit  assigned  to  each  record.  The  next  table  created  was  the  new  “Admission  and 
Discharge”  table  that  consisted  of  all  unique  data  having  to  do  with  the  patient’s  particular 
admission.  This  data,  (example:  admit  reason)  was  keyed  to  a  unique  admission  number 
assigned  sequentially  by  the  database.  The  dual  primary  keys  of  the  admission  table  are 
the  admission  key  and  the  foreign  key  of  patient  identification  number  to  uniquely  identify 
a  row  of  the  table.  This  represents  a  one  to  many  relationship  between  the  patient  and 
admission  tables. 

The  next  table  created  was  a  new  “DAILY”  table  that  identified  only  those  data  unique 
to  a  particular  patient  day  (example:  Subjective  Assessment,  Physical  Exam).  The  key  for 
this  table  is  the  current  date  of  entry  of  the  information  combined  with  the  foreign  keys 
fi-om  the  patient  and  admission  tables.  Finally,  several  tables  were  created  to  allow  for 
multiple  entries  of  data  during  a  particular  day.  These  tables  that  include:  “Vital  Signs  , 
“Problems”,  and  “Procedures”  required  a  unique  key  (“DAYKEY”)  that  was  particular  to 
the  browser  session  in  which  the  data  was  entered.  The  creation  of  these  tables  allows  the 
user  to  collect  patient  data  throughout  a  particular  day.  The  day  key  was  created  by 
subtracting  the  current  date  and  time  fi’om  January  1,  1970,  at  12  midmght  -  a 
JavaScr^t™  function  called  ‘DatetoUTC.”  This  created  a  unique  integer  which  is  used  as 
a  session  key  for  each  user  interaction  and  supports  multiple  users  interacting  with  the 
database  simultaneously. 

6.  Create  keys  from  server 

Another  problem  arises  fi‘om  using  dates  as  unique  keys  in  the  database.  As  first 
developed,  the  client  used  a  JavaScript™  “getDate”  function  to  find  the  Daily  and 
DAYKEY  keys.  However,  upon  further  experimentation,  it  was  discovered  that  the 
function  call  used  the  client  browser  date  rather  than  the  server  date.  Since  client  dates 
may  not  correspond  at  all  with  the  actual  server  date,  it  became  necessary  to  create  a 
function  that  would  gather  the  accurate  date  firom  the  server.  Using  Cold  Fusion®,  a  SQL 
query  was  written  that  returns  a  date  and  time  string  variable  that  is  output  into  a 
JavaScript  “DateO”  function.  This  string  is  converted  to  a  date  by  the  JavaScript™ 
“DatetoUTC”  function  and  is  then  used  to  create  the  DAILY  and  DAYKEY  keys. 
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Since  JavaScrq)!  is  client  side  scripting  and  Cold  Fusion®  is  server  side  scripting, 
inoreaspd  network  trafOc  could  delay  the  result  of  the  date/tune  query  resulting  in  a  null 
output  from  the  “DatetoUTC”  function.  In  this  case,  the  JavaScript  program  ‘loops”  until 
a  unique  date/time  stamp  is  returned  from  the  server.  This  process  is  invisible  to  the  user. 

7.  “Real  Time”  error  checking 

An  essential  part  of  a  medical  data  application  is  error  checking.  HTML  based 
applications,  however,  are  problematic  in  that  data  can  only  be  checked  after  the  form  is 
submitted  to  the  server.  Validation  of  data  types  and  ranges  ensures  that  server  errors  are 
not  returned  to  the  user. 

Using  Javascr^t™  function  calls  data  can  be  validated  as  it  is  entered  by  the  users. 
Functions  are  placed  in  the  “parent”  document  of  the  application  allowing  each  document 
within  the  application  to  call  the  functions  as  needed.  Function  calls  are  placed  in  the 
“onBlur”  method  of  each  form  field  requiring  error  checking.  As  the  user  changes  data  in 
the  field,  the  specific  function  call  is  made  by  passing  parameters  from  the  data  in  the  text 
box  to  the  function. 

Three  error  checking  functions  were  written  for  the  ICUBase  application.  The  first 
determines  whether  text  was  entered  into  the  text  box  at  alL  This  function  is  used  for 
“required”  database  fields.  If  the  user  decides  to  bypass  the  required  field,  it  is  still 
checked  by  the  database  upon  form  submission.  The  second  error  check  function  is  a 
range  check.  The  function  call  passes  the  range,  the  value  of  the  text  box  and  the  name  of 
the  field  to  the  fimction.  The  function  first  determines  whether  the  value  is  a  numeric  then 
evaluates  whether  the  value  lies  between  the  range  fields.  If  not,  the  user  is  returned  an 
error  stating  that  the  value  is  not  within  range.  The  third  error  check  function  checks  date 
data  to  verify  that  it  is  in  the  format  mm/dd/yy.  The  JavaScript  function  evaluates  whether 
it  is  a  leap  year  to  determine  the  exact  number  of  days  per  month  and  whether  the  date 
string  is  valid.  A  text  only  validation  is  necessary  because  JavaScript™  does  not  return  an 
error  for  an  illegal  date  string  or  an  illegal  data  type  conversion. 
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The  '^Coding  Engines” 

Several  of  the  ICUBase  forms  required  that  physicians  enter  coded  patient  data. 
Commonly  used  ICD-9  and  UNC  Hospitals  procedure  codes  were  stored  in  a  “lookup 
table”  that  was  posted  to  an  HTML  dropdown  box  for  clinicians  to  select  the  appropriate 
form.  With  increased  access  by  clinicians  to  the  application,  another  form  of  coding 
pix)blem(diagnosis)  and  procedure  information  was  needed. 

A  hierarchical  database  of  each  code  set  (problems  and  procedures)  was  made  available 
by  Dr.  Robert  Rutledge  of  UNC  Hospitals.  Two  tables  are  used  for  each  code  set  which 
were  converted,  as  before,  to  Microsoft  SQL  Server®  and  made  available  to  Cold 
Fusion®.  The  first  is  a  hierarchical  “menu”  table  that  was  developed  “by  hand”  from 
information  contained  in  the  actual  code  set.  The  second  table  is  the  actual  code  set  with 
the  code  munber  and  descrq)tion  of  the  code.  Used  together  the  menu  tables  enable  the 
user  to  “drill  down”  through  each  code  set  from  the  top  level  of  the  menu  table  to  a 
unique  code  in  the  codes  table  in  three  to  five  menu  choices. 

The  dftjgign  of  the  coding  interface  is  to  open  a  new  window  from  the  “procedures”  or 
“problems”  input  screen  using  a  JavaScript™  function  calL  The  data  string  representing 
the  code  itself  is  passed,  via  JavaScript™,  back  to  the  ICUBase  application  and  the  coding 
window  closes  automatically.  To  accomplish  this,  two  SQL  calls  were  coded  into  Cold 
Fusion®.  Each  SQL  result  set  contains  the  code  information  including  the  code  text,  the 
code  itself,  the  level  of  the  hierarchy  and  whether  it  is  the  end  of  the  hierarchy.  This 
information  is  placed  in  HTML  links  using  Cold  Fusion®  output  functions.  The  hnks 
reference  embedded  JavaScript™  functions  on  the  same  page  which  determine  whether  to 
run  the  queries  again  or  to  pass  the  data  back  to  the  ICUBase  application  and  close  the 
coding  window. 

Because  the  hierarchical  menu  table  and  code  table  are  structured  similarly  for  each 
code  set,  the  coding  engine  is  completely  scaleable  to  other  similarly  structured  code  sets. 
Minor  modifications  to  the  code  can  be  made  to  scale  the  coding  engine  to  any  database. 
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Development  of  a  test  model  for  entering  coding  medical  data 

In  order  to  test  the  ICUBase  application  and  the  associated  coding  engines,  a  short 
scenario  was  developed  to  facilitate  coding  of  medical  data  by  physicians.  In  the  scenario, 
a  patient  record  in  the  ICUBase  database  requires  that  several  ICD-9  codes  be  entered 
into  the  problem  list. 

Physicians  who  are  also  students  in  the  Medical  Informatics  program  were  used  as 
subjects.  Although  this  subject  selection  will  likely  makes  the  results  of  the  evaluation 
non-generalizable,  the  group  of  physicians  represent  a  core  set  different  disciplines 
(pediatrics,  pathology,  internal  medicine  and  emergency  medicine)  and  therefore  come  at 
the  coding  task  from  different  styles. 

Each  physician  was  given  a  short,  explanatory  overview  of  the  ICUBase  application 
and  a  general  concept  of  the  coding  engines  was  explained.  Then  they  were  briefly  led 
through  the  application  to  the  problem  list  entry  screen.  The  physicians  were  given  a  list 
of  five  problem  texts  (Appendix  1)  that  had  been  generated  from  the  ICD-9  code  set  as 
representative  problem  texts.  They  were  instructed  to  use  the  "menu  system"  option  on 
the  problem  list  screen  to  code  the  patient’s  data  and  to  continue  coding  each  diagnosis 
until  the  list  was  completed.  No  assistance  was  given  to  the  physicians  during  the  test  and 
no  practice  sessions  were  given  beforehand.  The  physicians  were  timed  during  the  interval 
of  each  coding  session  until  complete  and  the  number  of  "errors"  were  recorded.  An  error 
is  described  as  “drilling  down  through  a  hierarchy  that  does  not  contain  the  correct  code” 
at  any  level  of  the  hierarchy. 

A  survey  device  was  then  administered  to  measure  the  physician's  satisfaction  with  the 
coding  engine  and  the  overall  fit  with  the  application  that  launched  it.  The  survey 
contained  six  questions  derived  from  various  sources  in  the  literatun^*’*^.  The  survey 
instrument  is  located  in  Appendbc  1.  The  physicians  were  surveyed  immediately  following 
the  use  of  the  application  and  coding  engines. 


Aydin,  CE,  Rice  RE.  Social  Worlds,  individual  differences,  and  implementation:  predicting  attitudes  toward  a 
medical  information  system.  Irtformation  and  Management ,  1991;  20:119'36 
Chin,  HL,  KraU,  M  Implementation  of  a  Comprehensive  Computer-Based  Patient  Record  System  in  Kaiser 
Permanente's  Northwest  Region  M.D.  Computing  1997;  14:41-45 
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Results 


Coding  Engine  Development 

The  hierarchical  menu  table  and  code  table  are  structured  similarly  for  each  code  set, 
Thus,  the  coding  engine  is  completely  modular  and  can  be  used  with  any  similarly 
structured  table.  While  all  hierarchical  menu  systems  are  not  structured  the  same,  minor 
modifications  to  the  code  can  be  made  to  scale  the  HTML  based  engine  to  any  database. 
This  allows  for  any  code  set  to  be  quickly  added  to  an  application.  As  an  example,  a 
simple  hierarchical  menu  Structure  was  developed  for  the  CPT  (  code  set.  This  structure 
was  made  “web  available”  using  the  coding  engine  scripting  in  about  an  hour. 

The  flexibility  of  the  coding  engines  has  allowed  them  to  be  used  as  standalone 
functions  for  other  web  based  applications  to  obtain  coded  data.  To  facilitate  different 
levels  of  users,  three  “services”  of  interface  for  outside  applications  were  developed  to 
facilitate  use  of  the  coding  engines.  In  the  first,  the  user  simply  calls  the  coding  engine 
through  a  URL  (Universal  Resource  Locator).  After  using  the  application,  the  user  is 
returned  the  code  and  code  description  in  a  simple  HTML  form  for  printing  or  copying. 

The  second  service  allows  a  user  to  “caB”  the  coding  engine  firom  another  HTML  form 
as  a  function.  The  user  specifies  a  target  form  for  output  located  on  their  own  web  server, 
and  inserts  the  JavaSoft™  function  call  provided  below  into  their  output  form.  The 
JavaScr4>t™  variables  of  “codetext”  and  “descr^tiontext”  are  used  to  output  results  in  the 
user’s  own  format. 
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<script> 

//Coding  engine  output  writer  by  Joe  Mirrow 
//Insert  this  text  below  the  title  of  your 
//HTML  document 

code=";  descr=";  text  =  documentURL; 

slen  =  textlength;  question  =  textindexCKC?'); 

andsign  =  textindexOf('&');  for  (i=question+6;i<andsign;i++) 

code=code+texLcharAt(i);}  for  (i=andsign+7;i<slen;i++){ 

descr=descr+text.charAt(i);}  descr  =  unespape(descr); 

codetext  =  "Code  = "  +  code; 

descriptiontext  = "  Description  = "  +  descr; 

</script> 

<script> 

//Insert  this  text  into  your  HTML  document 
//wherever  you  want  the  results  of  the  coding 
//engine 

document.  write(codetext) ; 
document,  write(descriptiontext); 

</script> 


Figure  2  Code  text  for  JavaScript™  Function 


The  third  service  is  more  advanced  and  allows  the  user  to  apply  the  coding  engine 
directly  in  a  Java™  or  JavaScript™  application.  The  user  opens  a  browser  window  from 
their  parent  application  directed  at  the  coding  engine.  After  completion  of  the  hierarchical 
menu,  the  coding  engine  then  passes  the  code  and  code  description  back  to  the  opening 
application  as  a  JavaScript™  variable.  The  coding  engine  window  then  closes  itself.  The 
user’s  application  can  then  use  the  data  as  if  it  had  been  created  specifically  for  their  own 
application. 


Use  of  Coding  Engines  in  the  ICUBase  Application 

Four  male,  physicians,  all  with  computer  programming  experience  and  of  median  age  35 
were  subjected  to  the  coding  task.  A  graph  below  shows  the  times  for  completion  of  each 
“coding  task.” 
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Task  Completion  Time  for  ICD-9  Codes 


Physician  1 
Physician  2 
Physician  3 
BOB  Physician  4 
Avstage 


Figure  3  Task  Completion  Time  for  ICD-9  Codes 


On  average,  physicians  completed  coding  tasks  in  80  seconds  with  each  task  taking  less 
time  to  complete  as  the  test  continued.  The  average  time  for  the  first  code  was  137 
seconds  while  Code  5  averaged  52  seconds.  Physicians  made  fewer  errors  as  they  became 
more  familiar  with  the  method  by  which  the  hierarchy  was  developed.  An  error  is  defined 
as  “drilling  down  through  a  hierarchy  that  does  not  contain  the  correct  code”  at  any  level 
of  the  hierarchy.  Physicians  averaged  three  errors  on  the  first  coding  task  and  zero  errors 
on  coding  task  five.  Overall,  each  of  the  physicians  was  able  to  match  the  entire  list  of 
coded  text  with  supplied  text  with  100  percent  accuracy. 

The  physicians  were  satisfied  with  the  coding  engine  and  its  fit  to  the  ICUBase 
application  that  launched  it.  The  table  below  shows  average  responses  on  a  scale  of  1  to  7 
(1=  Strongly  Disagree  /  7=  Strongly  agree)  on  the  system  satisfaction  survey.  “Menu 
descriptions  are  complete”  refers  to  the  hierarchical  menu  table  descriptions  while  “Code 
descriptions  are  complete”  refers  to  the  actual  ICD-9  code  table. 

Although  the  survey  instrument  implies  a  satisfaction  rating  of  coding  engines  in 
general,  the  context  of  this  question  referred  to  the  specific  application  developed  for 
ICUBase. 
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Average  Response  (1-7) 

Question 

l=Strongly  Disagree 
7=Strongly  Agree _ 

A  coding  engine  is  easy  to  use 

5 

A  coding  engine  is  worth  the  time  to  use  it 

6 

The  coding  engine  is  accurate 

6.25 

The  coding  engine  fits  well  with  the  application  that  launched 
it 

Menu  descriptions  are  complete 

5.75 

5.25 

Code  descriptions  are  complete 

6 

Table  1  Satisfaction  Scale  Results 

Physicians  were  somewhat  disappointed  that  the  hierarchy  was  not  coded  as  a 
“thesaurus”  -  le.  that  there  was  not  more  than  one  way  to  get  to  a  particular  code.  Most 
problems  were  encountered  with  the  code  text  “ACUTE  MAXILLARY  SINUSITIS 
(ICD-9  Code:  461.0)  where  every  physician  tested  first  went  to  “Infectious  and  Parasitic 
Diseases”  link  instead  of  “Respiratory  System.” 

OveralL  the  physicians  were  satisfied  with  the  coding  engine  application  and  its 
applicability  to  the  ICUBase  application.  They  found  it  easy  to  use  and  worth  the  time  to 
use.  None  of  the  physicians  had  problems  with  the  physical,  web-based  interface  style. 
One  physician  noted  that  he  “wished  he  had  one  of  these  in  practice.” 

Discussion 


Application  Speed  and  Portability 

The  speed  of  the  application  over  a  local  network  meets  the  demands  of  multiple, 
simultaneous  users.  Utilizing  the  two  indexed  ICD-9  database  tables  containing  over 
17,000  records,  SQL  Server®  Cold  Fusion  ®,  JavaScript  ™  and  simple  HTML  links 
allow  for  each  level  of  the  hierarchy  to  be  displayed  in  under  one  second  while  modem 
speeds  vary  between  one  and  two  seconds  at  14.4  bps.  Mult^Jlo,  simultaneous  users  of 
the  system  on  a  non-dedicated  test  server  do  not  noticeably  decrease  the  application 
speed. 
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The  process  to  access  the  coding  engines  from  other  applications  has  been  simplified  to 
allow  access  from  other  HTML,  JavaScript  or  Java  based  forms.  Data  is  returned  in  the 
form  of  simple  text  variables  which  can  be  displayed  or  converted  to  serve  the  end  user’s 
purposes. 

Application  Security 

Without  mention  of  encryption  technology,  the  ICUBase  web  based  application  makes 
use  of  two  important  features.  First,  use  of  the  coding  engines  has  allowed  for  rapid, 
coding  of  test  cases  and  storage  of  the  data  into  the  online  database.  Because  patient 
specific  data  is  not  sent  to  the  coding  engine  from  the  calling  application,  the  server 
containing  the  coding  engine  is  not  required  to  be  in  a  secure  environment.  This  allows 
for  rapid  access  from  remote  locations. 

Second,  in  addition  to  being  a  unique  key,  the  DAYKEY  numeric  representation  can 
be  used  in  a  “security”  table  to  match  the  browser  session  to  a  particular  login  to  the 
application.  This  would  enable  an  administrator  to  lookup  and  see  which  physician  input 
information,  from  where  and  on  which  patient  at  any  time. 

Current  Technology  Provides  Many  Alternatives  to  Design 

The  current  state  of  the  art  of  web/database  connectivity  has  changed.  Products 
currently  on  the  market  allow  users  to  recreate  many  of  the  functions  developed  for  the 
ICUBase  application  in  a  single  database  and  “publish”  this  information  on  the  Internet. 
Features  of  current  technology  include  “stated”  connections  between  client  and  server  that 
avoid  the  issues  of  “static”  HTML  pages  that  require  updating  from  a  remote  database. 

Java™  technology  now  contains  the  Java  DataBase  Connectivity  (JDBC™)  standard 
which  allows  direct  connection  between  Java  based  applications  and  remote  databases. 
The  Java™  standard  is  also  designed  to  be  cross  platform  and  takes  advantage  of  many  of 
the  web  paradigms  mentioned  above. 

So  far,  there  is  no  rapid  application  development  platform  using  any  of  the  above 
technology  that  allows  for  simple  development  of  a  complete  interface.  Therefore,  much 
of  the  work  on  the  current  project  may  not  be  “lost”  due  to  advances  in  technology. 
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Because  the  distributed  ICUBase  application  is  created  with  completely  modular 
components,  many  of  its  iimctions  can  easily  be  substituted  for  “new  and  improved” 
versions  of  application  interface.  This  allows  future  developers  to  experiment  with 
different  areas  of  the  application  without  having  to  convert  to  an  entirely  new  program. 

Conclusion 


The  ICUBase  project  has  succeeded  in  answering  three  vital  questions;  1)  Can  a 
■ctflndfllnnp!  database  application  be  easily  ported  to  the  web  for  information  input  and 
retrieval?  2)  Can  the  web  paradigm  be  used  to  allow  physicians  to  use  internet  resources 
associated  with  another  web-based  application?  And  3)  Can  physicians  accurately  and 
quickly  code  medical  data  using  a  web-based  data  model? 

This  project  involved  the  creation  of  a  generic,  modular  application  for  input  and 
coding  of  medical  data  via  the  Hypertext  Markup  Language,  Javascript™  and  Cold 
Fusion.®.  The  application  has  demonstrated,  successfully,  that  a  standalone  database  can 
quickly  be  ported  to  the  web  using  current  technology.  By  making  the  application 
modular,  future  developers  have  a  way  to  create  new  interface  designs  while  the 
application  is  in  use. 

The  coding  engines  allow  physicians  to  use  new  internet  resources  for  accurate  clinical 
coding.  Future  applications  for  the  coding  engines  include  the  possibility  to  code  any  new 
code  set  into  a  hierarchical  menu  system.  In  addition,  any  externally  written  application 
may  incorporate  the  coding  engines  for  use  in  their  own  systems  with  minimal  knowledge 
of  HTML.  Existing  internet  resources  such  as  MEDLINE®  can  easily  be  integrated  into 
the  workflow  of  the  application. 

Once  completed,  physicians  using  the  system  were  able  to  accurately  code  medical  data 
using  external  web-based  resources.  System  satisfaction  was  strong  for  an  application  that 
took  such  a  short  time  to  develop. 
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Appendix  1-  System  Satisfaction  Survey 

Code  Text  for  Tasks 

INJURY  TO  RENAL  ARTERY 

ACUTE  MAXILLARY  SINUSITIS 

FRACTURE  OF  MEDIAL  CONDYLE  OF  HUMERUS,  OPEN 

ACUTE  MYOCARDIAL  INFARCTION,  OF  OTHER  LATERAL  WALL,  INITIAL 
EPISODE  OF  CARE 

CHRONIC  OR  UNSPECIFIED  PEPTIC  ULCER  OF  UNSPECIFIED  SITE  WITH 
HEMORRHAGE,  WITHOUT  MENTION  OF  OBSTRUCTION 
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Survey  Instrument 


ICD-9  Coding  Engine  System  Satisfaction  Survey 

Age: _ _ 

Occupation  (circle  one):  MD  AHP  Nurse  Admin 

Computer  Experience 

1  =  None 

2  =  Using  reports/information  produced  by  a  computer 

3  =  Data  Entry 

5  =  Using  Word  Processing 

5  =  Using  other  Applications  (ex:  Statistical,  Databases) 

6  =  Programming 


Strongly 

Disagree 

Strongly 

Agree 

System  Satisfaction 

A  coding  engine  is  easy  to  use 

1 

2 

3 

4 

5 

6 

7 

A  coding  engine  is  worth  the  time 
to  use  it 

1 

2 

3 

4 

5 

6 

7 

Ihe  coding  engine  is  accurate 

1 

2 

3 

4 

5 

6 

7 

The  coding  engine  fits  well 
with  the  application  that  launched 
it 

1 

2 

3 

4 

5 

6 

7 

Menu  descriptions  are  complete 

1 

2 

3 

4 

5 

6 

7 

Code  descriptions  are  complete 

1 

2 

3 

4 

5 

6 

7 
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Appendix  2-  Detailed  Code  Listing 


<! 

<! 


<! 

<! 


<! 

<! 


— 

— 

— 

The  ICUBase  adComplications  Form 

... 

This  is  a  sub-form  processor  for  the 

— 

— 

Complications  screen. 

— 

Written  By  Joe  Mirrow 

— 

filename :  adcomplications . dbm 

-- 

parameters:  none  (passed  via  form  data) 

— 

— 

— 

<! 


<DBQUERy  NAME="QA"  DATASOURCE=“ ICUBase" 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  ( POPUP . FIELD= ' QA '  AND 
POPUP. DESCR  =  'tform.QA#');  *> 

<DBSET  #QA#  =  #QA.CHOICE#> 

<DBQUERY  Names  "01160X2"  DATASOURCE=*ICUBase" 

SQL  =  "select  t otal= count (*)  from  DAILY  where 
KNUMBERs#  form . KNUMBER# " > 

<DBIF  #Check2. total#  IS  ■0"> 

<DBQUERY  NAMES "patient"  DATASOURCEs" ICUBase" 

SQL  s  "SELECT  FNAME,LNAME,UNITNUM, ADMDATE  FROM  ADMDC  WHERE 
KNUMBERs# form. KNUMBER#  "> 

<DBQUERY  Names"SaveIt4"  DATASOURCEs" ICUBase" 

SQL  s  "INSERT  INTO  DAILY  (KNUMBER, FNAME,LNAME,UNITNUM) 

values 

(#form. KNUMBER#, ' #patient .FNAME# ' , '#patient.LNAME#' , '#patient.UNITNUM#' ) 

"> 


<DBIF  #patient. ADMDATE#  IS  "*> 

<DBQUERY  Names "ADMDATEl"  DATASOURCEs " ICUBase “ 

SQLs  "UPDATE  DAILY  SET  ADMDATE  s  Null  WHERE 
KNUMBERs#  form . KNUMBER#  *  > 

<DBELSE> 

<DBQUERY  Names "ADMDATE2"  DATASOURCEs "ICUBase" 

SQLs  "UPDATE  DAILY  SET  ADMDATE  s  ' #pat lent .ADMDATE# '  WHERE 
KNUMBERs#form. KNUMBER# " > 

</DBIF> 


</DBIF> 

<DBIF  #parameterexists (form.ARF) #  IS  "YES"> 
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<DBSET  #ARF#='Y’> 

<DBELSE> 

<DBSET  #ARF#="N“> 

</DBIF> 

<DBIF  iparaineterexists  (form. BACTEREMIA)  #  IS  "YES'‘> 
<DBSET  #BACTEREMIA#=“Y*> 

<DBELSE> 

<DBSET  #BACTEREMIA#=“N*> 

</DBIF> 

<DBIF  tparameterexists  (fonti.CDIFF)  #  IS  “YES“> 
<DBSET  #CDIFF#="Y"> 

<DBELSE> 

<DBSET  #CDIFF#="N*> 

</DBIF> 

<DBIF  tparameterexists (form. CVA) #  IS  “YES“> 

<DBSET  #CVA#=“Y"> 

<DBELSE> 

<DBSET  #CVA#=*N"> 

</DBIF> 

<DBIF  tparameterexists  (form. DVT)  #  IS  "YES''> 

<DBSET  tDVTt=“Y‘> 

<DBELSE> 

<DBSET  tDVTt=''N“> 

</DBIF> 

<DBIF  tparameterexists (form. HYPOTENSIO) t  IS  ■YES“> 
<DBSET  tHYPOTENSIOt=“Y-> 

<DBELSE> 

<DBSET  tHYPOTENSIOt=*N*> 

</DBIF> 

<DBIF  tparameterexists  (form. LIVRFAIDt  IS  ■YES“> 
<DBSET  tLIVRFAILt='‘Y"> 

<DBELSE> 

<DBSET  tLIVRFAILt=*N"> 

</DBIF> 

<DBIF  tparameterexists (form. MI) t  IS  ■YES“> 

<DBSET  tMIt="Y'‘> 

<DBELSE> 

<DBSET  tMIt="N*> 

</DBIF> 

<DBIF  tparameterexists (form. REINTUBA) t  IS  "YES“> 
<DBSET  tREINTUBAt=‘Y“> 

<DBELSE> 

<DBSET  tREINTUBAt="N*‘> 

</DBIF> 

<DBIF  tparameterexists (form. SINUSITIS ) t  IS  ■YES"> 
<DBSET  tSINUSITISt=“Y‘> 

<DBELSE> 

<DBSET  tSINUSITISt="N"> 

</DBIF> 

<DBIF  tparameterexists  (form. ARDS)  t  IS  "YES'‘> 
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<DBSET  #ARDS#=*y> 

<DBELSE> 

<DBSET  #ARDS#=*N’> 

</DBIF> 

<DBIF  iparameterexists (form.CPR) #  IS  *YES*> 

<DBSET  #CPR#=*Y''> 

<DBELSE> 

<DBSET  #CPR#='N‘> 

</DBIF> 

<DBIF  #parameterexists(fonn.CHF)#  is  ■yES"> 

<DBSET  #CHF#=*Y'> 

<DBELSE> 

<DBSET  #CHF#="N‘> 

</DBIF> 

<DBIF  tparameterexists (form. DECUBITUS) #  IS  "YES"> 
<DBSET  #DECUBITUS#='’Y*> 

<DBELSE> 

<DBSET  #DECUBITUS#="N"> 

</DBIF> 

<DBIF  tparameterexists (form.GIBLEED) #  IS  *YES“> 
<DBSET  #GIBLEED#=“Y“> 

<DBELSE> 

<DBSET  #GIBLEED#=*N*> 

</DBIF> 

<DBIF  tparameterexists (form. LINECOMP)#  IS  •YES“> 
<DBSET  #LINECOMP#=-Y-> 

<DBELSE> 

<DBSET  #LINECOMP#=‘N"> 

</DBIF> 

<DBIF  tparameterexists  (form. MENINGITIS)#  IS  ■YES‘'> 
<DBSET  #MENINGITIS#=*Y"> 

<DBELSE> 

<DBSET  #MENINGITIS#=“N*> 

</DBIF> 

<DBIF  tparameterexists (form. PNEUMON)#  IS  "YES“> 
<DBSET  #PNEUMON#='Y"> 

<DBELSE> 

<DBSET  #PNEUMON#=«N"> 

</DBIF> 

<DBIF  tparameterexists (form. SEIZURE)#  IS  •YES"> 
<DBSET  #SEIZURE#=*Y“> 

<DBELSE> 

<DBSET  #SEIZURE#=*N“> 

</DBIF> 

<DBIF  tparameterexists (form. WNDCOMPL)#  IS  •YES"> 
<DBSET  #WNDCOMPL#=*Y“> 

<DBELSE> 

<DBSET  #WNDCOMPL#="N“> 

</DBIF> 

<DBIF  tparameterexists  (form. ARYTHMI A)  #  IS  "YES'*> 
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<DBSET  #ARYTHMIA#='y> 

<DBELSE> 

<DBSET  #ARyTHMIA#=“N‘> 

</DBIF> 

<DBIF  tparameterexists (form.CTAMPO) #  IS  ■YES"> 
<DBSET  #CTAMPO#=“y> 

<DBELSE> 

<DBSET  #CTAMPO#=*N'> 

</DBIF> 

<DBIF  #paraineterexists  (form. COMA)  #  Is  ■YES*> 
<DBSET  #COMA#=''Y"> 

<DBELSE> 

<DBSET  #COMA#="N“> 

</DBIF> 

<DBIF  #paraineterexists (form. Die )#  IS  "yES"> 
<DBSET  #DIC#=:"y> 

<DBELSE> 

<DBSET  #DIC#=“N“> 

</DBIF> 

<DBIF  #parameterexists(forin.HYPONAT)#  IS  ■YES"> 
<DBSET  #HYPONAT#='Y"> 

<DBELSE> 

<DBSET  #HYPONAT#='N*> 

</DBIF> 

<DBIF  #parameterexists  (form.MOF)  #  IS  ''YES"> 
<DBSET  #MOF#=*Y'> 

<DBELSE> 

<DBSET  #MOF#='N'> 

</DBIF> 

<DBIF  #parameterexists (form. PULMEMBO) #  IS  ’YES"> 
<DBSET  #PULMEMBO#="Y“> 

<DBELSE> 

<DBSET  #PULMEMBO#=-N“> 

</DBIF> 

<DBIF  tparameterexists (form. SEPSIS) #  IS  “YES"> 
<DBSET  #SEPSIS#='‘Y*> 

<DBELSE> 

<DBSET  #SEPSIS#='N"> 

</DBIF> 

<DBIF  tparameterexists (form.UTI)#  IS  “YES“> 
<DBSET  tUTIt=‘Y"> 

<DBELSE> 

<DBSET  tUTIt="N“> 

</DBIF> 


<DBQUERY  Name=*updtComps“  DATASOURCE=*ICUBase" 

SQL  =  “UPDATE  DAILY  SET  QAEVENT2= ' tQAt ' ,  ARF= ' t ARFt ' , 
BACTEREMIA= ' tBACTEREMIAt '  , 

CDIFF= ' tCDIFFt ' , CVA= ' tCVAt ' , DVT= ' tDVTt ' , HYPOTENSIO= ' tHYPOTENSIOt ' , 
LIVRFAIL= ' tLIVRFAILt ' ,MI= ' tMIt ' , 
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REINTUBA= ' iREINTUBA# ' , SINUSITIS= ' #SINUSITIS# ' , ARDS= ' #ARDS# ' , CPR= ' #CPR# ' , 
CHF= ' #CHF# ' , DECUBITUS= ' tDECUBITUS# ' , 

GIBLEED= ' #GIBLEED# ' , LINECOMP= ' #LINECOMP# ' , MENINGITIS= ' #MENINGITIS# ' , PNEU 
MON= ' #PNEOMON# ' ,  SEIZURE= ' #SEIZURE# ' , 

WNDCOMPL= ' tWNDCOMPL# ' ,  ARYTHMIA= ' # ARYTHMIA# ' , 
CTAMPO='#CTAMPO#' ,  COMA= ' #COMA# ' ,  DIC='#DIC#',  HYPONAT= ' #HYPONAT# ' , 

MOF= ' #MOF# ' ,  PULMEMBO= ' #  PULMEMBO# ' , 

SEPSIS='#SEPSIS#' ,  UTI='#UTI#'  WHERE  KNUMBER=# form. KNUMBER#"> 
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<1 - - - - 

<!  — 

<•  — 

<!  — 

<! —  The  ICUBase  adDemographics  Form 

<1  — 

<! —  This  is  a  sub-form  processor  for  the 

<! —  first  Demographics  screen. 

<!  — 

<! —  Written  By  Joe  Mirrow 

<1  — 

<} —  filename;  addemo.dbm 

<! —  parameters:  none  (passed  via  form  data) 

<!  — 

<!  — 

<!  — 

- - 

<html> 

<body> 

<DBQUERY  Names "CheckAdmit"  DATASOURCE= " ICUBase " 

SQL  =  "select  KNUMBER,  total=count (*)  from  ADMDC  where 
UNITNUM='#form.unitnum#'  and  ACTIVE=1  group  by  KNUMBER“> 

<DBIF  #CheckAdmit. Total#  GREATER  THAN  0> 

<DBSET  #tot#  =  1> 

<DBSET  #knum#  =  #CheckAdmit .KNUMBER# > 

<DBELSE> 

<DBSET  #tot#  =  0> 

<DBSET  #knum#  =  0> 

</DBIF> 

<DBQUERY  NAMES "Health"  DATASOURCEs " ICUBase " 

SQL  s  "SELECT  CHOICE  FROM  POPUP  WHERE  ( POPUP . FIELDs ' CHREVAL '  AND 
POPUP . DESCR  s  ' #  f orm . CHREVAL# ' ) ;  " > 

</DBQUERY> 

<DBSET  #CHREVAL#  =  #Health. CHOICE#  > 

<DBQUERY  NAMES "Admit"  DATASOURCEs" ICUBase" 

SQL  s  "SELECT  CHOICE  FROM  POPUP  WHERE  (POPUP .FIELDs 'ADMITYPE'  AND 
POPUP. DESCR  s  ' #f orm. ADMITYPE#' ) ;  "> 

</DBQUERY> 

<DBSET  #ADMITYPE#  s  #Admit .CHOICE#> 

<DBIF  #form.unitnum#  IS  NOT  ""> 

<DBQUERY  Names "UcaseL"  DATASOURCEs "ICUBase" 

SQL  s  "select  LNAMEsUPPER ( ' #form.LNAME# ' ) "> 

<DBQUERY  Names"UcaseF"  DATASOURCEs "ICUBase" 

SQL  s  "select  FNAMEsUPPER ( ' #form.FNAME# ' ) "> 

<DBQUERY  Names "Checkl"  DATASOURCEs" ICUBase" 

SQL  s  "select  totalscount (*)  from  PATIENT  where 
UNITNUMs'#form.unitnum#' "> 

<DBIF  #Checkl. total#  IS  "0"> 

<DBQUERY  Names "Saveltl"  DATASOURCEs "ICUBase" 

SQL  s  "INSERT  INTO  PATIENT (RACE, UNITNUM,  LNAME,FNAME, SEX) 
values 

{ ' #f orm. RACE# ' , '#form.UNITNUM#' , '#UcaseL.LNAME# ' , ' #UcaseF.FNAME# ' , '#form 
.SEX#' ) ; "> 
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</DBIF> 


<DBQUERy  Name=*Check2'‘  DATASOURCE=*ICUBase" 

SQL  =  "select  total=count (*)  from  ADMDC  where 
UNITNUM='#form.unitnum#'  and  ACTIVE=1"> 

<DBIF  #ChecJc2. total#  IS  •0''> 

<! — not  already  admitted — > 

<DBQUERY  Names "Savelt2"  DATASOURCE='ICUBase" 

SQL  =  "INSERT  INTO  ADMDC  (KNUMBER,  ACTIVE, 

AEMITYPE ,  CHREVAL ,  ADREASON ,  ICU ,  SERVICE ,  UNITNUM ,  SVC  ATT ,  TRAUMA ,  ADMDATE ,  H_AD 
MDAT) 

values  (#form.KNUMBER#, 

1, ' #ADMITYPE# ' , '#CHREVAL#' , ' #form. ADREASON# ' , '#form. ICU# ' , ' #form. SERVICE 
#' , '#form.UNITNUM#' , '#form.ATTENDIN#' , ' #form. TRAUMA# ' , ' #form. ADMDATE# ' , ' 
#form.H_ADMDAT#'  ) ; "> 

<DBQUERY  Names "Savelt3"  DATASOURCEs-ICUBase" 

SQL  s  "INSERT  INTO  DAILY (KNUMBER,  TODAYDAT,  UNITNUM,  ADMDIS, 
DNR,  DAYKEY)  values 

(#form. KNUMBER#,  ' #form. TODAYDAT# #form. UNITNUM# ' ,  'A', 

' # form . CODESTATUS# ' ,  # f  orm . DAYKEY# ) ; " > 

<DBIF  #form.DOB#  IS  ""> 

<DBQUERY  Names "DOBl"  DATASOURCEs«ICUBase“ 

SQLs  "UPDATE  PATIENT  SET  DOB  =  Null  WHERE 
UNITNUMs '  #f orm. UNITNUM# '  "> 

<DBELSE> 

<DBQUERY  Names "DOB2"  DATASOURCEs"ICUBase" 

SQLs  "UPDATE  PATIENT  SET  DOB  s  '#f orm. DOB#'  WHERE 
UNITNUMs '  #f  orm  .UNITNUM# '■  > 

</DBIF> 

<DBIF  #form.DOB#  IS  NOT  ""> 

<DBQUERY  NAMES -age"  DATASOURCEs-ICUBase" 

SQL  s  "select  newage  s 

(datediff (day,DOB,GETDATE())/366)  from  PATIENT  where 
UNITNUMs '#f orm. UNITNUM#' "> 

<DBIF  #age. newage#  LESS  THAN  0> 

<DBQUERY  Names-age3"  DATASOURCEs" ICUBase" 

SQLs  "UPDATE  PATIENT  SET  AGEs (100+#age. newage#) 
where  UNITNUMs '#form. UNITNUM# ' “> 

<DBQUERY  Names “newBD"  DATASOURCEs "ICUBase" 

SQLs  "UPDATE  PATIENT  SET  DOBs (dateadd(year , - 
100, DOB))  WHERE  UNITNUM  =' #f orm. UNITNUM# ' "> 

<DBELSE> 

<DBQUERY  Names "age2"  DATASOURCEs "ICUBase" 

SQL  s  "UPDATE  PATIENT  SET  AGEs #age. newage#  WHERE 
UNITNUMs '  #f  orm .  UNITNUM# '"  > 

</DBIF> 

</DBIF> 

</DBIF> 

</DBIF> 
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<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 

<! 


— 

— 

— 

The  ICUBase  adDemographics  Form2 

—  — 

This  is  a  sub- form  processor  for  the 

— 

— 

second  Demographics  screen. 

— 

Written  By  Joe  Mirrow 

— 

filename:  addemol.dbm  . 

— 

— 

parameters:  none  (passed  via  form  data) 

— 

<DBQUERY  NAME="Health*  DATASOURCE="ICUBase" 

SQL  =  “SELECT  CHOICE  FROM  POPUP  WHERE  ( POPUP . FIELD= ' CHREVAL '  AND 
POPUP. DESCR  =  ' #form. CHREVAL#' ) ;  “> 

</DBQUERY> 

<DBSET  #CHREVAL#  =  #Health.CHOICE#> 

<DBQUERY  NAME=“ Admit"  DATASOURCE=“ ICUBase" 

SQL  =  “SELECT  CHOICE  FROM  POPUP  WHERE  ( POPUP . FIELD= ' ADMITYPE '  AND 
POPUP . DESCR  =  ' #  f orm . ADMITYPE# ' ) ;  *  > 

</DBQUERY> 

<DBSET  #ADMITYPE#  =  #Admit .CHOICE#> 

<DBQUERY  Name=“UcaseL“  DATASOURCE=“ ICUBase" 

SQL  =  “select  LNAME=UPPER ( '#form.LNAME# ' ) “> 

<DBQUERY  Name=“UcaseF“  DATASOURCE=“ ICUBase" 

SQL  =  “select  FNAME=UPPER{ '#form.FNAME#' ) “> 

<DBQUERY  Name=“SaveIt4“  DATASOURCE=“ ICUBase" 

SQL  =  “UPDATE  ADMDC  SET 

ArMITYPEs ' #ADMITYPE# ' , CHREVAL= ' #CHREVAL# ' , ADREASON= ' #  f  orm . ADREASON# ' , ADM 
DATE='#form.ADMDATE#' ,  H_AI»IDAT='#form.H_ADMDAT# ' , 

ICU= ' #f orm . ICU# SERVICE= ' #f orm . SERVICE# UNITNUM= ' #f orm . UNITNUM# ' , 

TRAUMAS '#  form .  TRAUMA# ' , 

SVCATT='#form.ATTENDIN#'  WHERE  KNUMBER=#form.KNUMBER#“> 

<DBQUERY  Names “Save It 5“  DATASOURCEs" ICUBase" 

SQL  s  “UPDATE  PATIENT  SET  RACEs ' #f orm. RACE# ' , 

UNITNUM='#form.UNITNUM#' ,LNAME='#UcaseL.LNAME#' , 

FNAMEs ' #UcaseF . FNAME# ' ,  SEXs'  #f orm . SEX# '  WHERE 
UNITNUMs'#form.UNITNUM#'  “> 

<DBQUERY  Names“SaveIt6“  DATASOURCEs “ICUBase" 

SQL  s  “UPDATE  DAILY  SET  DNR  =  ' #f orm.CODESTATUS# ' “> 

<DBIF  #form.ADMDATE#  IS  ““> 

<DBQUERY  Names “ADMDATEl"  DATASOURCEs “ICUBase" 
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SQL=  'UPDATE.ADMDC  SET  ADMDATE  =  Null  WHERE 
KNDMBERs#  f  orm . KNUMBER# • > 

<DBELSE> 

<DBQUERy  Name=*AI»IDATE2*  DATASOURCE=*ICUBase“ 

SQL*  "UPDATE  AIMDC  SET  ADMDATE  =  '#fonn.ADMDATE# '  WHERE 
KNUMBER=# f orm . KNUMBER# • > 

</DBIF> 

<DBIF  #form.H_ADMDAT#  IS  ■•> 

<DBQUERY  Naine=“H_ADMDATl’  DATASOURCE="ICUBase" 

SQL=  "UPDATE  AI»1DC  SET  H_ADMDAT  =  Null  WHERE 
KNUMBER=# form . KNUMBER# " > 

<DBELSE> 

<DBQUERY  Name="H_ADMDAT2"  DATASOURCE= " ICUBase “ 

SQL=  "UPDATE  ADMDC  SET  H_ADMDAT  =  ' #f orm.H_ADMDAT# '  WHERE 
KNUMBER=#  form . KNUMBER# " > 

</DBIF> 

<DBIF  # form. DOB#  IS  ""> 

<DBQUERY  Name="DOBl"  DATASOURCE= " ICUBase “ 

SQL=  "UPDATE  PATIENT  SET  DOB  =  Null  WHERE 
UNITNUM= '  #f  orm .UNITNUM# '  " > 

<DBELSE> 

<DBQUERY  Name="DOB2"  DATASOURCE=" ICUBase" 

SQL=  "UPDATE  PATIENT  SET  DOB  =  '#f orm. DOB#'  WHERE 
UNITNOMs '#  form .  UNITNUM# '"  > 

</DBIF> 

<DBIF  #form.DOB#  IS  NOT  ""> 

<DBQUERY  NAME="age"  DATASOURCE=" ICUBase" 

SQL  =  "select  newage  =  (datediff (day,DOB,GETDATE{) ) /366)  from 
PATIENT  where  UNITNUM= ' #  form . UNITNUM# ' " > 

<DBIF  #age. newage#  LESS  THAN  0> 

<DBQUERY  Names "age3"  DATASOURCE=" ICUBase" 

SQL=  "UPDATE  PATIENT  SET  AGE= (100+#age. newage#) 
where  UNITNUM= '#f orm. UNITNUM# ' "> 

<DBQUERY  Name="newBD"  DATASOURCE=" ICUBase" 

SQL=  "UPDATE  PATIENT  SET  DOB= (dateadd (year , - 
100, DOB))  WHERE  UNITNUM  ='#form.UNITNUM#' "> 

<DBELSE> 

<DBQUERY  Names "age2"  DATASOURCEs" ICUBase" 

SQL  s  "UPDATE  PATIENT  SET  AGEs#age .newage#  WHERE 
UNITNUMs '# f orm . UNITNUM# '" > 

</DBIF> 


</DBIF> 
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- - 

<!  — 

<!  — 

<i__  The  ICUBase  Discharge  Processor 

<!  — 

<! —  This  is  a  sub-form  processor  for  the 

<! —  Discharge  screen. 

<!  — 

<! —  Written  By  Joe  Mirrow 

<!  — 

<! —  filename:  add is charge. dbm 

<S —  parameters:  none  (passed  via  form  data) 

<!  — 

<!  — 

- - 

<DBQUERY  Name=" counter*  DATASOURCE= ■ ICUBase " 

SQL  =  'select  total=count {*)  from  admdc  where 
KNDMBERs#  f  orm . KNOMBER#  *  > 

<DBIF  icounter. total#  is  not  0> 

<DBIF  iform.NICUDAYS#  IS  *•> 

<DBSET  #NICUDAYS#  =  0> 

<DBELSE> 

<DBSET  #NICUDAYS#  =  #f orm.NICUDAYS#> 

</DBIF> 

<DBIF  tform.NHOSPDAYS#  IS 
<DBSET  #NHOSPDAYS#  =  0> 

<DBELSE> 

<DBSET  tNHOSPDAYS#  =  #form.NHOSPDAYS#> 

</DBIF> 

<DBQUERY  NAME=*DISPOSIT"  DATASOURCE=" ICUBase* 

SQL  =  'SELECT  CHOICE  FROM  POPUP  WHERE  FIELD='DISPOSIT'  and 
DESCR='#form.DISPOSIT#' *> 

<DBQUERY  NAME=*ASA*  DATASOURCE=* ICUBase* 

SQL  =  'SELECT  CHOICE  FROM  POPUP  WHERE  FIELD='ASA_CLASS'  and 
DESCR='#form.ASA#'  *> 

<DBQUERY  Name=*discharge*  DATASOURCE=* ICUBase* 

SQL=  'UPDATE  ADMDC  SET  ACTIVE  =  0,  AGEPTSC=#ASA.CHOICE# , 
DISPOSIT='#DISPOSIT. CHOICE#' , 

NICUDAYS=#NICUDAYS# ,  NHOSPDAYS=#NHOSPDAYS# , 

OUTCOMES ' #  f orm . outcome# ' , 

H_OUTCOME= ' #  form . H_OUTCOME# '  WHERE  KNUMBER=#  f orm . KNUMBER#  *  > 


<DBIF  #form.H_DCDATE#  IS  "> 

<DBQUERY  Names * H_DCDATE1 *  DATASOURCEs* ICUBase" 

SQLs  'UPDATE  ADMDC  SET  H_DCDATE  s  Null  WHERE 
KNUMBERs#  form . KNUMBER# " > 

<DBELSE> 

<DBQUERY  Names 'H_DCDATE2'  DATASOURCEs ' ICUBase “ 

SQLs  "UPDATE  ADMDC  SET  H_DCDATE  s  ' #form.H_DCDATE# '  WHERE 
KNUMBERs# form . KNUMBER# * > 

</DBIF> 

<DBIF  #form.DCDATE#  IS  "> 


34 


.  <DBQUERy  Names'DCDATEl-  DATASOURCE='ICUBase" 

SQL=  'UPDATE  ATMDC  SET  DCDATE  =  Null  WHERE 
KNDMBER=#  form . KNDMBER#  *  > 

<DBELSE> 

<DBQUERY  Names  •DCDATE2‘'  DATASOURCE="ICUBase' 

SQL=  "UPDATE  AEMDC  SET  DCDATE  =  ' #form. DCDATE# '  WHERE 
KNUMBERs#  f orm . KNDMBER# " > 

</DBIF> 


</DBIF> 
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- - 

<!  — 

<!“ 

<1 —  The  ICUBase  History  and  Physical  Exam  Processor 

<!  — 

<! —  This  is  a  sub-form  processor  for  the 

<! —  History  and  Physical  screen. 

<!  — 

<! —  Written  By  Joe  Mirrow 

<!  — 

<! —  filename:  adhistory .dbm 

<! —  parameters:  none  (passed  via  form  data) 

<•  — 

<!  — 

- - 

<DBIF  #form.GCSEYE#  IS  ""> 

<DBSET  #GCSEYE#  =  "Null“> 

<DBELSE> 

<DBSET  iGCSEYE#  =  #form.GCSEYE#> 

</DBIF> 

<DBIF  #form.GCSVERBAL#  IS  *“> 

<DBSET  #GCSVERBAL#  =  ■Null*> 

<DBELSE> 

<DBSET  tGCSVERBAL#  =  #form.GCSVERBAL#> 

</DBIF> 

<DBIF  #form.GCSMOTOR#  IS  '•> 

<DBSET  #GCSMOTOR#  =  •Null"> 

<DBELSE> 

<DBSET  tGCSMOTOR#  =  #form.GCSMOTOR#> 

</DBIF> 

<DBQUERY  Name=‘checkl2"  DATASOURCE=" ICUBase" 

SQL  =  "select  total  =  Count (*)  from  DAILY  WHERE 
UNITNUM='#form.UNITNUM#'  AND 

TODAYDAT='#form.TODAYDAT#'  AND  KNUMBER=#form.KNUMBER#"> 


■ — > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 


<DBIF  #checkl2 .total#  is  "0"> 

<DBQUERY  Name=“SaveIt7"  DATASOURCE=' ICUBase" 

SQL  =  "INSERT  INTO  DAILY  (KNUMBER,  UNITNUM,  TODAYDAT) 
values  (#form. KNUMBER#,  ' #form. UNITNUM# ' , 

' #  f orm . TODAYDAT# ' ) " > 

</DBIF> 

<DBQUERY  Name="SaveIt2"  DATASOURCE=" ICUBase" 

SQL  =  "UPDATE  DAILY  SET 

SDBJECTIVE= ' #f orm. SUBJECTIVE# ' , PHYSEXAM= ' #f orm. PHYSEXAM# ' , 

GCSEYE=#GCSEYE# ,GCSVERBAL=#GCSVERBAL# , GCSMOTOR=#GCSMOTOR# , 
MEDS='#form.MEDS#'  WHERE  KNUMBER=#form. KNUMBER#  and 
TODAYDAT= ' #  f  orm . TODAYDAT# ' " > 
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<! 
<! 
<! 
<! 
<! 
<! 
<! 
<! 
<! 
<! 
<! 
<! 
< ! 
<! 
<! 


— 

- > 

- > 

— 

The  ICUBase  Patient  Lines  Processor 

- > 

- > 

— 

This  is  a  sub-form  processor  for  the 

- > 

Lines  screen. 

- > 

- > 

— 

Written  By  Joe  Mirrow 

- > 

- > 

— 

filename;  adlines.dbm 

- > 

— 

parameters:  none  (passed  via  form  data) 

- > 

- > 

— 

- > 

- > 

<DBQUERY  Naine="Check2'‘  DATASOURCE="ICUBase“ 

SQL  =  "select  total=count (*)  from  DAILY  where 
KNDMBER=#  f  orm .  KNUMBER#  "  > 

<DBIF  #Check2. total#  IS  "0"> 

<DBQUERY  NAME=*patient"  DATASOURCE="ICUBase“ 

SQL  =  "SELECT  FNAME,LNAME,UNITNUM,ADMDATE  FROM  ADMDC  WHERE 
KNUMBER=# form. KNUMBER#  "> 

<DBQUERY  Name="SaveIt4"  DATASOURCE=" ICUBase" 

SQL  =  "INSERT  INTO  DAILY  (KNUMBER, FNAME,LNAME,UNITNUM) 

values 

(#f orm. KNUMBER#, '#patient.FNAME#' , '#patient.LNAME#' , '#patient .UNITNUM# ' ) 

"> 


<DBIF  #patient.ADMDATE#  IS  ""> 

<DBQUERY  Name="ADMDATEl"  DATASOURCE=" ICUBase" 

SQL=  "UPDATE  DAILY  SET  AiaOATE  =  Null  WHERE 
KNUMBER=#  form . KNUMBER# " > 

<DBELSE> 

<DBQUERY  Names "AI»1DATE2"  DATASOURCE=" ICUBase" 

SQL=  "UPDATE  DAILY  SET  ADMDATE  =  ' #patient . ADMDATE# '  WHERE 
KNUMBERs#  form . KNUMBER# " > 

</DBIF> 


</DBIF> 

<DBIF  #parameterexists (form. ALINE)#  IS  "YES*> 
<DBSET  #ALINE#="Y"> 

<DBELSE> 

<DBSET  #ALINE#="N"> 

</DBIF> 

<DBIF  #parameterexists (form.CVPLINE) #  IS  "YES"> 
<DBSET  #CVPLINE#="Y“> 

<DBELSE> 

<DBSET  #CVPLINE#="N"> 

</DBIF> 

<DBIF  #parameterexists (form.LUMEN3) #  IS  "YES"> 
<DBSET  #LUMEN3#="Y"> 
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<DBELSE> 

<DBSET  #LUMEN3#=*N“> 

</DBIF> 

<DBIF  ttparameterexists  (fom.SWANGANZ) #  IS  *YES“> 
<DBSET  #SWANGANZ#="Y“> 

<DBELSE> 

<DBSET  #SWANGANZ#="N*> 

</DBIF> 

<DBIF  tparameterexists (form.ICPMONIT)#  IS  "YES“> 
<DBSET  #ICPMONIT#=*Y“> 

<DBELSE> 

<DBSET  #ICPMONIT#=*N"> 

</DBIF> 

<DBIF  tparameterexists (form. CHESTTUBE) #  IS  "YES"> 
<DBSET  #CHESTTUBE#=*Y"> 

<DBELSE> 

<DBSET  #CHESTTUBE#=‘N“> 

</DBIF> 

<DBIF  tparameterexists (form. EPIDURAL) #  IS  *YES"> 
<DBSET  tEPIDURALt="Y“> 

<DBELSE> 

<DBSET  tEPIDURALt=*N''> 

</DBIF> 

<DBIF  tparameterexists (form. ETT_TRACH)t  IS  “YES"> 
<DBSET  tETT_TRACHt=‘Y*> 

<DBELSE> 

<DBSET  tETT_TRACHt=*N*> 

</DBIF> 

<DBIF  tpcurameterexists  (form.PROALINE)  t  IS  '’YES"> 
<DBSET  tPROALINEt='Y"> 

<DBELSE> 

<DBSET  tPROALINEt=*N"> 

</DBIF> 

<DBIF  tparameterexists (form. PROCVP) t  IS  ■YES"> 
<DBSET  tPROCVPt=“Y-> 

<DBELSE> 

<DBSET  tPROCVPt="N*> 

</DBIF> 

<DBIF  tparameterexists (form. PR03LUMN) t  IS  "YES*> 
<DBSET  tPR03LUMNt=*Y"> 

<DBELSE> 

<DBSET  tPR03LUMNt="N“> 

</DBIF> 

<DBIF  tparameterexists (form. PROSWAN) t  IS  "YES“> 
<DBSET  tPROSWANt="Y"> 

<DBELSE> 

<DBSET  tPROSWANt=“N“> 

</DBIF> 

<DBIF  tparameterexists (form. PROICPMO) t  IS  ■yES"> 
<DBSET  tPROICPMOt="Y"> 
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<DBELSE> 

<DBSET  #PROICPMO#=*N''> 

</DBIF> 

<DBIF  tparameterexists  (fom.PROCHESTTU)  #  IS  ■YES’> 
<DBSET  #PROCHESTTU#=*y> 

<DBELSE> 

<DBSET  #PROCHESTTU#=“N"> 

</DBIF> 

<DBIF  tparameterexists (form. PROEPIDURA) #  IS  •YES*> 
<DBSET  #PROEPIDURA#=“y> 

<DBELSE> 

<DBSET  #PROEPIDURA#="N“> 

</DBIF> 

<DBIF  tparameterexists  (form.  PROINTUBAT)  #  IS  "YES'‘> 
<DBSET  tPROINTUBATt=“y> 

<DBELSE> 

<DBSET  tPROINTUBATt=‘N"> 

</DBIF> 

<DBIF  tparameterexists (form. DIALYSIS ) t  IS  ■yES"> 
<DBSET  tDIALYSISt="y> 

<DBELSE> 

<DBSET  tDIALYSISt='N“> 

</DBIF> 

<DBIF  tparameterexists (form. ENDOSCOPY) t  IS  'YES“> 
<DBSET  tENDOSCOPYt='‘Y“> 

<DBELSE> 

<DBSET  tENDOSCOPYt="N*> 

</DBIF> 


<DBQUERY  Name=*updtComps“  DATASOURCE="ICUBase- 
SQL  =  'UPDATE  DAILY  SET  ALINE= ' tALINEt ' , 
CVPLINE='tCVPLINEt' ,  LUMEN3=' tLUMEN3t '  , 

SWANGANZ= ' tSWANGANZt ' , ICPMONIT= ' tICPMONITt ' , CHESTTUBE= ' tCHESTTUBEt ' , EPID 
URAL= ' tEPIDURALt ' ,  ETT_TRACH= ' tETT_TRACHt ' , 

PROALINE= ' tPROALINEt ' , 

PROCVP= ' tPROCVPt ' , PR03LUMN= ' tPR03LUMNt ' . PROSWAN= ' tPROSWANt ' , PROICPMO= ' tP 
ROICPMOt ' , PROCHESTTU= ' tPROCHESTTUt ' , 

PROEPIDURA= ' tPROEPIDURAt ' , PROINTOBAT= ' tPROINTUBATt ' , 

DIALYSIS= ' tDIALYSISt ' , ENDOSCOPY= ' tENDOSCOPYt '  WHERE 
KNUMBER=t  form .  KNUMBERt '  > 
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<1 - _______________ — — - - - ________ - - - > 

<1 —  — > 

<1 —  — > 

<! —  The  IGUBase  Main  Forms  Processor  — > 

<1 —  — > 

<! —  This  is  the  main  application  forms  processor  — > 

<1  —  — > 

<! —  Written  By  Joe  Mirrow  — > 

<1 —  — > 

<! —  filename:  admit. dbm  — > 

<! —  parameters:  none  (passed  via  form  data)  — > 

<! —  return  parameters:  state,  KNUMBER,  TODAYDAT,  — > 

<!—  UNITNUM,  DAYKEY  — > 

<! —  (returns  the  next  requested  screen  or  welcome)  — > 

<1 —  — > 

<! - > 


<!DOCTYPE  HTML  PUBLIC  •-//IETF//DTD  HTML//EN‘> 
<HTML> 

<TITLE>ADMIT</TITLE> 

<BODY> 


<script> 


var  admi tKNUMBER=<dboutput>#  f  orm . KNUMBER#< / dbout put > ; 
var  admitUNITNUM='<dboutput>#form.UNITNUM#</dboutput>' ; 

if  (admitUNITNUM  ==  ")  { 
admitUNITNUM  =  0; 

} 

parent . SetCookie ( -UNITNUM" ,  admitUNITNUM) ; 
parent . SetCookie ( -KNUMBER- ,  admitKNUMBER) ; 

</script> 

<DBIF  # form. UNITNUM#  IS  NOT  --> 

<DBQUERY  Names -Check-  DATASOURCE=- ICUBase- 

SQL  =  -select  total=count (*)  from  ADMDC  where 
KNUMBERs#  f  orm .  knimber  #  "  > 

<DBIF  # form. screen#  IS  "addCTio"> 

<DBIF  #Check. total#  IS  -0-> 

<DBINCLUDE  TEMPLATES- icubase/addemo.dbm-> 

</DBIF> 

</DBIF> 

<DBIF  # form. screen#  is  "addemol"> 

<DBINCLUDE  TEMPLATE=" icubase/addemol .dbm" > 

</DBIF> 

<DBIF  #form. screen#  IS  "adhistory-> 
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<DBINCLUDE  TEMPLATES • icubasG/adhistory . dbm* > 

</DBIF> 

<DBIF  iform. screen#  IS  ■adlines"> 

<DBINCLUDE  TEMPLATES  ■■  icubase/adlines .  dbm" > 

</DBIP> 

<DBIF  #form. screen#  IS  ■advitals"> 

<DBINCLUDE  TEMPLATES ‘ icubase/advitals . dbm" > 

</DBIP> 

<DBIF  #fonn. screen#  IS  "adprocedure"> 

<DBINCLUDE  TEMPLATES " icubase/adprocedure . dbm " > 

</DBIF> 

<DBIF  #form. screen#  IS  "adcomplications"> 

<DBINCLUDE  TEMPLATES " icubase/adcomplicat ions . dbm" > 

</DBIF> 

<DBIF  # form. screen#  IS  "adproblem2"> 

<DBINCLUDE  TEMPLATES ■ icubase/adproblem . dbm" > 

</DBIF> 

<DBIF  #form. screen#  IS  *addischarge“> 

<DBINCLUDE  TEMPLATES ■ icubase/addischarge . dbm" > 

</DBIP> 

</DBIF> 

<script> 

if  (parent. GetCookie{ "state")  !s  "0"){ 

var  newlocation  s  "/scripts/dbml.exe?teraplatesicubase/"+ 
parent .  screen  [parent  .Get'Cookie  { "number" )  ]  + 

"ficKNUMBERs*  +  parent.GetCookie("KNUMBER")  + 

" ttodaydats “  +  parent . GetCookie ( " TODAYDAT" )  + 

"Scunitnums*  +  parent. GetCookie  ( "UNITNUM" )  +  "tdaykey 
+  parent .GetCookie ( "DAYKEY" ) ; 

} 

else{ 

var  newlocation  s  •/scripts/dbml.exe?templatesicubase/welcome.dbm" 

} 

if  (admitUNITNUM  s=  O) { 

parent . left . locations"/scripts/dbml .exe?templatesicubase/select .dbm" ; 
var  newlocation  s  " /scripts/dbml .exe?templatesicubase/welcome.dbm" ; 
alert ("You  did  not  include  a  Unit  Number"); 

} 

parent . right . locationsnewlocation; 

</script> 

</BODY> 

</HTML> 
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<1 - - - 

<!  — 

<!  — 

<! —  The  iCUBase  Problem  Processor 

<!  — 

<! —  This  is  a  sub-form  processor  for  the 

<! —  History  and  Physical  screen. 

<!  — 

<! —  Written  By  Joe  Mirrow 

<!  — 

<! —  filename:  adproblem.dbm 

<! —  parameters:  none  (passed  via  form  data) 

<!  — 

<!  — 

- - - 

<DBQUERY  Name='GETDCODE*  DATASOURCE=" ICUBase* 

SQL  =  “select  DCODE  FROM  DCODE  WHERE  FULL_DESCR 
' #f orm . DCODETEXT# ' *  > 

<DBQUERY  Name=“checkl31“  DATASOURCE=" ICUBase* 

SQL  =  “select  total  =  Count (*)  from  MASTERPROBLEMS  WHERE 
UNITNUM='#form.UNITNUM#'  AND 

PATIENTPROBNUMBER=#form.PROBNUM#  AND  KNUMBER=#form.KNUMBER#*> 

<DBQUERY  Names “checkdailyprobs*  DATASOURCE=* ICUBase* 

SQL  =  “select  total  =  Count {*)  from  DAILYPROBLEMS  WHERE 
UNITNUM='#form.UNITNUM#'  AND 

PATIENTPROBNUMBER=#form.PROBNUM#  AND  KNUMBER=#form.KNUMBER#  and 
TODAYDAT  =  ' #f orm.TODAYDAT# ' *> 

<DBQUERY  Name=*admitdate*  DATASOURCE=* ICUBase* 

SQL  =  “Select  ADMDATE  from  ADMDC  where 
KNUMBERs# f orm . KNUMBER# * > 

<DBIF  #checkl31. total#  IS  *0*> 

<DBQUERY  Names* Savelt70*  DATASOURCE=* ICUBase* 

SQL  =  “INSERT  INTO  MASTERPROBLEMS  (KNUMBER,  UNITNUM, 
PATIENTPROBNUMBER ) 

values  (tform.KNUMBER#,  ' #f orm. UNITNUM# ' ,  #form.PROBNUM#) *> 


</DBIF> 

<DBIF  #checkdailyprobs. total#  IS  *0*> 

<DBQUERY  Names *SaveIt71*  DATASOURCEs* ICUBase* 

SQL  s  “INSERT  INTO  DAILYPROBLEMS  (KNUMBER,  UNITNUM, 
TODAYDAT,  PATIENTPROBNUMBER) 

values  (#f orm. KNUMBER#,  ' #f orm. UNITNUM# ' , 

' #f orm . TODAYDAT# ' ,  #f orm . PROBNUM# ) *  > 

</DBIF> 

<DBIF  #form.probsev#  is  **> 

<DBSET  #PROBSEV#  s  *Null*> 

<DBELSE> 

<DBSET  #PROBSEV#  s  #form.probsev#> 

</DBIF> 

<DBQUERY  Name=*UPDATE72"  DATASOURCEs* ICUBase* 
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SQL  =  ‘UPDATE  MASTERPROBLEMS  SET  active*' iform. active# ' , 
lastupdated* ' #  form . todaydat# ' , descr* ' #f orm . DCODETEXT# ' , 
ProblemSeverity=#PROBSEV# , 

ICD9Code='#GETDC0DE.DC0DE#'  WHERE  KNUMBER=#form.KNOMBER# 
and  UNITNUM='#form.unitnvim#' 

and  PATIENTPROBNUMBER=#form.PROBNOM#‘> 

<DBQUERy  NAME*‘UPDATE73‘  DATASOURCE=*ICUBase‘ 

SQL  =  ‘UPDATE  DAILYPROBLEMS  SET 
assessmentplan* ' #f orm.assessmentplan# ' 

WHERE  KNUMBER*#form.KNUMBER#  and  UNITNUM='#forro.unitnum# ' 
and  PATIENTPROBNUMBER=#form.PROBNUM#  and 
TODAYDAT* ' #  f orm . TODAYDAT# ' ‘ > 

<DBIF  #form. onset#  IS  “> 

<DBQUERY  Name=‘onsetl‘  DATASOURCE=‘ICUBase‘ 

SQL*  ‘UPDATE  MASTERPROBLEMS  SET  onsetdate  =  Null  WHERE 
KNUMBER*#form.KNUMBER#  and  PATIENTPROBNUMBER  *  #form.PROBNUM#‘> 
<DBELSE> 

<DBQUERY  Name=‘onset2‘  DATASOURCE=‘ICUBase‘ 

SQL*  ‘UPDATE  MASTERPROBLEMS  SET  onsetdate  *  '#f orm. onset#'  WHERE 
KNUMBER*#form.KNUMBER#  and  PATIENTPROBNUMBER  *  #f orm. PROBNUM# ‘> 
</DBIF> 

<DBIF  #form.enddate#  IS  “> 

<DBQUERY  Name=‘enddatel‘  DATASOURCE=‘ICUBase‘ 

SQL*  ‘UPDATE  MASTERPROBLEMS  SET  enddate  =  Null  WHERE 
KNUMBER*#form.KNUMBER#  and  PATIENTPROBNUMBER  *  # form. PROBNUM# ‘> 
<DBELSE> 

<DBQUERY  Name=‘enddate2‘  DATASOURCE=‘ICUBase‘ 

SQL*  ‘UPDATE  MASTERPROBLEMS  SET  enddate  =  '#f orm. enddate#'  WHERE 
KNDMBER*#form.KNUMBER#  and  PATIENTPROBNUMBER  *  # form. PROBNUM# ‘> 
</DBIF> 

<DBIF  #f orm. onset#  LESS  THAN  OR  EQUAL  TO 
#DateFormat (admitdate.ADMDATE) #> 

<DBQUERY  Name* ‘ match ‘  DATASOURCE=‘ICUBase“ 

SQL*  ‘UPDATE  MASTERPROBLEMS  SET  ADMDIS  =  'A'  WHERE 
KNDMBER*#form.KNUMBER#  and  PATIENTPROBNUMBER  *  # form. PROBNUM# ‘> 
</DBIF> 

<DBIF  #f orm. enddate#  GREATER  THAN  OR  EQUAL  TO 
#DateFormat ( admitdate . ADMDATE ) #> 

<DBQUERY  Name=‘match2‘  DATASOURCE=‘ICUBase‘ 

SQL*  ‘UPDATE  MASTERPROBLEMS  SET  ADMDIS  =  'D'  WHERE 
KNUMBERa#form.KNUMBER#  and  PATIENTPROBNUMBER  *  # f orm . PROBNUM# ‘ > 
</DBIF> 
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- - 

<!  — 

<!  — 

<* —  The  iCUBase  Procedure  Processor 

<!  — 

<! —  This  is  a  sub-form  processor  for  the 

<! —  Procedure  input  screen. 

<!  — 

<! —  Written  By  Joe  Mirrow 

<1  — 

<! —  filename:  adprocedure.dbm 

<! —  parameters:  none  (passed  via  form  data) 

<!  — 

<!  — 

- - 

<DBIF  iform.PROCDATE#  IS  NOT  •“> 

<DBQUERY  Names “checks*  DATASOURCE=“ ICUBase* 

SQL  s  “select  total  =  Count (*)  from  DAILY  WHERE 
UNITNUM='#form.UNITNUM#'  AND 

TODAYDAT='#form.TODAYDAT#'  AND  KNUMBER=#form.KNUMBER#*> 

<DBIF  #Check3 .total#  IS  *0*> 

<DBQUERY  Names “Savelt?*  DATASOURCEs* ICUBase* 

SQL  s  “INSERT  INTO  DAILY  (KNUMBER,  UNITNUM,  TODAYDAT) 
values  (#form. KNUMBER#,  ' #form. UNITNUM# ' , 

' # form. TODAYDAT# ' ) *  > 

</DBIF> 

<DBQUERY  Names •Checkprocs*  DATASOURCEs* ICUBase* 

SQL  s  “select  t otals count {*)  from  PROCS  WHERE  PROCKEY  s 
#form.PROCKEY# 

AND  DAYKEYs#form.DAYKEY#  AND  TODAYDAT= ' #form. TODAYDAT# ' 
AND  KNUMBERs# form. KNUMBER# *> 

<DBIF  #Checkprocs. total#  IS  *0*> 

<DBQUERY  Names*SaveIt4*  DATASOURCEs* ICUBase* 

SQL  s  “INSERT  INTO  PROCS  (KNUMBER,  UNITNUM,  DAYKEY, 
TODAYDAT,  PROCKEY) 

values  (#form.KNUMBER#,  ' #form. UNITNUM# ' ,  # form. DAYKEY#, 

' #f orm . TODAYDAT# ' ,  #f orm . PROCKEY# ) * > 

</DBIF> 

<DBQUERY  Names “UPDATE4*  DATASOURCEs “ICUBase* 

SQL  s  “UPDATE  PROCS  SET 

PNAMEs'#form.PNAME#' ,INDICs'#form.INDIC#' ,BILLCODEs'#form.BILLCODE#' , 

TYPE='#form. TYPE#' ,SITE='#form. SITE#' ,ICUATT='#form.ICUATT#' , 

ICUFELLOWs ' #  f orm . ICUFELLOW# ' , 

ICURESs ' #f orm . ICURES# ' , DESCRs ' #f orm.DESCR# ' 

WHERE  DA YKEYs# form. DAYKEY#  and  PROCKEYs#f orm. PROCKEY# *> 


<DBIF  #parameterexists (form. SIDE)#  IS  *YES"> 
<DBQUERY  Name=“updtSIDE*  DATASOURCEs “ICUBase* 
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SQL*  'UPDATE  PROCS  SET  SIDE* '#fonn. SIDE#'  WHERE 
DAYKEYstform.DAYKEY#  and  PROCKEY=#form.PROCKEY#'> 

</DBIF> 

<DBIF  tparameterexists (form. MED)#  IS  ■YES'> 

<DBQUERY  Names 'updtMED*  DATASOURCE='ICUBase* 

SQL=  "UPDATE  PROCS  SET  MED='#form.MED#'  WHERE 
DAYKEY=#form.DAYKEY#  and  PROCKEy=#fonn. PROCKEY#“> 

</DBIF> 

<DBIF  #parameterexists(form.CUTDOWN)#  IS  •YES’> 

<DBQUERY  Names 'updrCUTDOWN*  DATASOURCEs'icUBase" 

SQLs  'UPDATE  PROCS  SET  CUTDOWNs'#form.CUTDOWN#'  WHERE 
DAYKEYs#form.DAYKEY#  emd  PROCKEYs#form.PROCKEY#'> 

</DBIF> 

<DBIF  #parameterexists (form. WIRED) #  IS  ■YES'> 

<DBQUERY  Names 'updt WIRED'  DATASOURCEs'ICUBase' 

SQLs  'UPDATE  PROCS  SET  WIREDs'#form. WIRED#'  WHERE 
DAYKEYs#form.DAYKEY#  and  PROCKEYs#form.PROCKEY#"> 

</DBIF> 


<DBIF  #parameterexists (form. COMP) #  IS  ■YES'> 

<DBSET  #COMP#  s  #form.COMP#> 

<DBQUERY  Names "Spaces'  DATASOURCE  s  "ICUBase" 

SQLs'select  numsCHARINDEX (',',' #COMP# ' ) "> 

<DBQUERY  Names' Checks*  DATASOURCE  s  'ICUBase*  ( 

SQLs'select 

spaceSsCHARINDEX ( ' , ' , SUBSTRING ( ' #COMP# ' , #Spaces . num#+l , DATALENGTH ( ' #COMP 
#')))•> 

<DBIF  #Check3 .spaces#  IS  NOT  •0'> 

<DBQUERY  Names 'delCOMP'  DATASOURCEs'ICUBase* 

SQLs'select 

newconpsSUBSTRING ( ' #COMP# ' , 1 , #Check3 . spaces  # - l+#Spaces . num# ) ' > 

<DBSET  #COMP#  s  #delCOMP.newcomp#> 

</DBIF> 

<DBIF  #Spaces.num#  IS  ■0'> 

<DBQUERY  NAMES 'UpdtCompl'  DATASOURCEs'ICUBase* 

SQLs  'UPDATE  PROCS  SET  ICOMPl  s  '#COMP#'  WHERE 
DAYKEYs#form.DAYKEY#  and  PROCKEYs#form.PROCKEY#*> 

<DBELSE> 

<DBQUERy  Names 'Separatel*  DATASOURCEs'ICUBase' 

SQL  s  "select  f irstsSUBSTRING( '#COMP#' , 1 , #Spaces .num#-l) *> 

<DBQUERY  Names "Separate2*  DATASOURCEs'ICUBase' 

SQL  s  'select 

secondsSUBSTRING { ' #COMP# ' , #Spaces . num#+l , DATALENGTH ( ' #COMP# ' ) ) ' > 

<DBQUERY  Names 'UpdtComp2“  DATASOURCEs'ICUBase' 
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SQL=  'UPDATE  PROGS  SET  ICOMPl  =  ' fSeparatel . first# ' , 
ICOMP2='#Separate2. second#'  WHERE  KNUMBER=#fonti.KNOMBER#*> 

</DBIF> 

</DBIF> 

<DBIF  #form.DREMOVE#  IS  **> 

<DBQUERY  Naine='DREMOVEl‘  DATASOURCE='ICUBase' 

SQL=  'UPDATE  PROGS  SET  DREMOVE  =  Null  WHERE  DAYKEy=#form.DAYKEY#  and 
PROGKEY=#  form . PROGKEY# ' > 

<DBELSE> 

<DBQUERY  Names 'DREMOVE2'  DATASOURGE='IGUBase' 

SQL*  'UPDATE  PROGS  SET  DREMOVE  =  ' #form.DREMOVE# '  WHERE 
DAYKEY=#form.DAYKEY#  and  PROGKEY=#form.PROGKEY#'> 

</DBIF> 


<DBQUERY  Names 'PROGDATE2'  DATASOURGEs'IGUBase' 

SQLs  'UPDATE  PROGS  SET  PROGDATE  s  ' #form. PROGDATE# '  WHERE 
DAYKEYs#form.DAYKEY#  and  PROGKEYs#form.PROGKEY#'> 

</DBIF> 
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<1  — 


The  ICUBase  Vital  Signs  Processor 

This  is  a  sub-form  processor  for  the 
Vital  Signs  screen. 

Written  By  Joe  Mirrow 

filename:  advitals.dbm 

parameters:  none  (passed  via  form  data) 


<l 


<DBIF  #form.SBP#  IS 

<DBSET  #SBP#  =  •'Null-> 

<DBELSE> 

<DBSET  #SBP#  =  #form.SBP#> 

</DBIF> 

<DBIF  #form.VEN_SAT#  IS 

<DBSET  #VEN_SAT#  =  “Null“> 

<DBELSE> 

<DBSET  #VEN_SAT#  =  #f orm. VEN_SAT#> 
</DBIF> 

<DBIF  tform.DBP#  IS  --> 

<DBSET  #DBP#  =  “Null-> 

<DBELSE> 

<DBSET  #DBP#  =  #form.DBP#> 

</DBIF> 

<DBIF  # form. HR#  IS  -■> 

<DBSET  #HR#  =  -Null“> 

<DBELSE> 

<DBSET  #HR#  =  #form.HR#> 

</DBIF> 

<DBIF  tform.CVP#  IS 

<DBSET  #CVP#  =  “Null"> 

<DBELSE> 

<DBSET  #CVP#  ss  #form.CVP#> 

</DBIF> 

<DBIF  #form.PCWP#  IS  -•> 

<DBSET  #PCWP#  =  -Null‘'> 

<DBELSE> 

<DBSET  #PCWP#  =  #form.PCWP#> 
</DBIF> 

<DBIF  tform.CO#  IS  ■-> 

<DBSET  #C0#  =  -Null"> 

<DBELSE> 

<DBSET  #C0#  =  #form.CO#> 

</DBIF> 

<DBIF  #form.TMAX#  IS 

<DBSET  #TMAX#  =  “Null“> 
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<D6ELSE> 

<DBSET  #TMAX#  =  #form.TMAX#> 
</DBIF> 

<DBIF  tform.RR#  IS  ■"> 


<DBSET  #RR#  = 
^BBEXiSE^ 

<DBSET  #RR#  = 
</DBIF> 

<DBIF  #fonn.FI02# 
<DBSET  #FI02# 
<DBELSE> 

<DBSET  #FI02# 
</DBIF> 


’Null"> 

#fonn.RR#> 

IS  ■•■> 

=  "Null"> 

=  #fonn.FI02#> 


<DBIF  iform.VENTRATE#  IS  "*> 

<DBSET  #VENTRATE#  =  “Null“> 

<DBELSE> 

<DBSET  tVENTRATE#  =  #fonn.VENTRATE#> 
</DBIF> 


<DBIF  tform.TV#  IS  "“> 

<DBSET  #TV#  =  "Null"> 
<DBELSE> 

<DBSET  #TV#  =  #fonn.TV#> 
</DBIF> 


<DBIF  iform.PEEP# 
<DBSET  #PEEP# 
<DBELSE> 

<DBSET  #PEEP# 
</DBIF> 


IS  “■> 

=  •Null"> 

=  #fonn.PEEP#> 


<DBIF  # form. ALBUMIN#  IS  ■■> 

<DBSET  #ALBUMIN#  =  “Null“> 

<DBELSE> 

<DBSET  #ALBUMIN#  =  # form. ALBUMIN# > 
</DBIF> 


<DBIF  # form. PHOSPHATE#  IS  "•> 

<DBSET  #PHOSPHATE#  =  '•Null"> 

<DBELSE> 

<DBSET  #PHOSPHATE#  =  #f orm. PHOSPHATE#> 
</DBIF> 


<DBIF  #form.PH#  IS  ••"> 

<DBSET  #PH#  =  "Null“> 
<DBELSE> 

<DBSET  #PH#  =  #form.PH#> 
</DBIF> 

<DBIF  #form.P02#  IS  "■> 

<DBSET  #P02#  =  “Null‘> 
<DBELSE> 

<DBSET  #P02#  =  #form.P02#> 
</DBIF> 

<DBIF  #form.PC02#  IS  “■> 
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Null‘> 


<DBSET  #PC02#  =  “ 

<DBELSE> 

<DBSET  #PC02#  =  #form.PC02#> 

</DBIF> 

<DBIF  tform.HCOS#  IS  "■> 

<DBSET  #HC03#  =  "Null*> 

<DBELSE> 

<DBSET  #HC03#  =  #form.HC03#> 

</DBIF> 

<DBIF  iforrti.FLUIDINPUT#  IS  “"> 

<DBSET  #FLUIDINPUT#  =  ••Null"> 

<DBELSE> 

<DBSET  #FLUIDINPUT#  =  •#form.FLUIDINPUT#> 
</DBIF> 

<DBIF  #fonn.FLUIDOUTPUT#  IS  "“> 

<DBSET  iFLUIDOUTPUT#  =  •Null“> 

<DBELSE> 

<DBSET  #FLUIDOUTPUT#  =  #f orni.FLUIDOUTPUT#> 
</DBIF> 

<DBIF  #form.NA#  IS  ■"> 

<DBSET  #NA#  =  "Null“> 

<DBELSE> 

<DBSET  #NA#  =  #fonn.NA#> 

</DBIF> 

<DBIF  tform.CL#  IS  “"> 

<DBSET  #CL#  =  "Null*>. 

<DBELSE> 

<DBSET  #CL#  =  #fonn.CL#> 

</DBIF> 

<DBIF  ttform.HGB#  IS  «■> 

<DBSET  #HGB#  =  "Null"> 

<DBELSE> 

<DBSET  #HGB#  =  #forni.HGB#> 

</DBIF> 

<DBIF  tform.WBC#  IS  “•> 

<DBSET  #WBC#  =  "Null"> 

<DBELSE> 

<DBSET  #WBC#  =  #form.WBC#> 

</DBIF> 

<DBIF  #fonn.K#  IS  *“> 

<DBSET  #POT#  =  "Null"> 

<DBELSE> 

<DBSET  #POT#  =  #form.K#> 

</DBIF> 

<DBIF  #form.LHC03#  IS  ““> 

<DBSET  #LHC03#  =  "Null“> 

<DBELSE> 

<DBSET  #LHC03#  =  #fonn.LHC03#> 

</DBIF> 

<DBIF  tform.CR#  IS  •“> 
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<DBSET  #CR#  =  ■Null"> 

<DBELSE> 

<DBSET  #CR#  =  #form.CR#> 

</DBIF> 

<DBIF  ttform.HCT#  IS  *"> 

<DBSET  #HCT#  =  "Null"> 

<DBELSE> 

<DBSET  #HCT#  =  #form.HCT#> 

</DBIF> 

<DBIF  #fonn.PLT#  IS  *•■•> 

<DBSET  #PLT#  =  "Null''> 

<DBELSE> 

<DBSET  #PLT#  =  #fonn.PLT#> 

</DBIF> 

<DBQUERY  NAME=*Checkll*  Datasource=“ICUBase“ 

SQL=  "SELECT  totalscount {* )  from  DAILY  WHERE 
TODAYDAT= ' #  f orm . TODAYDAT# '  cind  KNUMBER= #  f orm . KNUMBER# “ > 

<DBIF  icheckll. total#  IS  "0“> 

<DBQUERY  NAME="INSERTDAILYNEW  DATASOURCE=“ I CUBASE" 

SQL  =  "INSERT  INTO  DAILY  (UNITNUM, TODAYDAT, KNUMBER)  VALUES 
('#form.UNITNUM#' , '#form. TODAYDAT#' ,#form. KNUMBER#) "> 

</DBIF> 

<DBQUERY  NAME="Check6"  Datasource=*ICUBase“ 

SQL=" SELECT  tOtal=COUnt (*)  FROM  DAILYVITALS  WHERE 
UNITNUM='#f orm. UNITNUM#'  AND 

DAYKEY=#form.DAYKEY#  AND  TODAYDAT='#form. TODAYDAT# 'AND 
KNUMBER=#  form . KNUMBER# " > 

<DBIF  #Check6. total#  IS  •0"> 

<DBQUERY  NAME=*INSERTVITALS"  DATASOURCE=" ICUBase" 

SQL  =  "INSERT  INTO  DAILYVITALS  (UNITNUM,  DAYKEY,  TODAYDAT, 
KNUMBER,  ART_HC03,  ART_C02,  ART_02, 

SBP,  DBP,  HR,  CVP,  WEDGE,  CARD_OUT,  IMAX,  RR,  FI02,  ART_PH, 
FLUIDS_IN,  FLUIDS_OUT) 

VALUES  ( '#f orm. UNITNUM# ' ,  # form. DAYKEY# , 

' #f orm . TODAYDAT# ' , #  f orm . KNUMBER# ,  #HC03  # , 

#PC02#,  #P02#,  #SBP#,  #DBP#,  #HR#,  #CVP# ,  #PCWP#, 

#CO#,  #TMAX#,  #RR#,  #FI02#,  #PH# ,  #FLUIDINPUT# , 

#FLUIDOUTPUT#) "> 

<DBELSE> 

<DBQUERY  NAME="UPDATEVITALS"  DATASOURCE=" ICUBase" 

SQL  =  "UPDATE  DAILYVITALS  SET  SBP=#SBP#,  DBP=#DBP#,  HR=#HR#, 
CVP=#CVP#,  WEDGE=#PCWP#,  CARD_OUT=#CO# , 

TMAX=#TMAX#,  RR=#RR#,  FI02=#FI02#,  ART_PH=#PH#, 
ART_02=#P02#,  ART_C02=#PC02#,  ART_HC03=#HC03#, 

FLUIDS_IN=#FLUIDINPUT# ,  FLUIDS_OUT=#FLUIDOUTPUT#  WHERE 
UNITNUM='#f orm. UNITNUM#'  AND 

DAYKEYs# form. DAYKEY#  AND  TODAYDAT='#form. TODAYDAT# 'AND 
KNUMBER=# form. KNUMBER#  "> 

</DBIF> 

<DBQUERY  NAME=" Check? •  Datasource=" ICUBase" 
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SQL=‘ SELECT  totalscount (*)  FROM  DAILYLABS  WHERE 
UNITNUM='#fonn.UNITNUM#'  AND 

DAYKEY=#form.DAYKEY#  AND  TODAYDAT= ' iform.TODAYDAT# '  AND 
KNUMBER=#  f  om .  KNUMBER#  •  > 


<DBIF  #Check7. total#  IS  "0"> 

<DBQUERY  NAME="INSERTIjABS*  DATAS0URCE='' ICUBase" 

SQL  =  “INSERT  INTO  DAILYLABS  (UNITNUM,  DAYKEY,  TODAYDAT, 
KNUMBER,  NA,  CL,  HEMOGLOBIN, 

WBC,  K,  HC03,  CREAT,  ACREAT,  HCT,  PLATELETS,  ALBUMIN, 
PHOSPHATE) 

VALUES  ('tform. UNITNUM#',  # form . DAYKEY# , 

' #  form . TODAYDAT# ' , #  f orm . KNUMBER# , 

#NA#,  #CL#,  #HGB#,  #WBC#,  #POT#,  #LHC03#,  #CR#, 
'#form.ACUTECHANGE#' ,  #HCT#,  #PLT#,  # ALBUMIN#, 

# PHOSPHATE#) “> 

<DBELSE> 


<DBQUERY  NAME="UPDATELABS"  DATASOURCE=’ ICUBase" 

SQL  =  "UPDATE  DAILYLABS  SET  NA=#NA#,  CL=#CL#, 
HEMOGLOBIN=#HGB#,  WBC=#WBC#,  K=#POT#, 

HC03  =#LHC03 # ,  CREAT=#CR# ,  ACREAT= ' # f orm . ACUTECHANGE# 


HCT=#HCT# 

PLATELETS=#PLT#,  ALBUMIN=#ALBUMIN# , 
PHOSPHATE=#PHOSPHATE#  WHERE  UNITNUM= ' #f orm. UNITNUM# '  AND 

DAYKEY=#f orm. DAYKEY#  AND  TODAYDAT='#f orm. TODAYDAT#' 
AND  KNUMBER=# form. KNUMBER# *> 


</DBIF> 

<DBQUERY  NAME=“ Checks*  Datasource=" ICUBase" 

SQL=“ SELECT  total=count {*)  FROM  DAILYVENT  WHERE 
UNITNUM='#f orm. UNITNUM#'  AND 

DAYKEY=# form. DAYKEY#  AND  TODAYDAT='#f orm. TODAYDAT#'  AND 
KNUMBER=# form . KNUMBER# " > 


<DBIF  #Check8. total#  IS  *0“> 


<DBQUERY  NAME="INSERTVENT"  DATASOURCE= " ICUBase " 

SQL  =  "INSERT  INTO  DAILYVENT  (UNITNUM,  DAYKEY, 
TODAYDAT,  KNUMBER,  VENTMODE, 

VENT_RATE,  TIDAL_VOL,  PEEP,  VEN_SAT)  VALUES 
( '#form.UNITNUM#' ,  # form. DAYKEY#, 

' #form. TODAYDAT# ', #form. KNUMBER# , 

' #  form . VENTMODE# ' ,  #VENTRATE# ,  #TV# ,  #PEEP# , 


#VEN_SAT#) "> 


<DBELSE> 

<DBQUERY  NAME=“UPDATEVENT"  DATASOURCE=" ICUBase" 

SQL  =  "UPDATE  DAILYVENT  SET  VENTMODE= ' #f orm. VENTMODE# ' , 
VENT_RATE=#VENTRATE# ,  TIDAL_VOL=#TV# , 

PEEP=#PEEP#,  VEN_SAT=#VEN_SAT#  WHERE 
UNITNUM='#f orm. UNITNUM#'  AND 

DAYKEY=# form. DAYKEY#  AND 

TODAYDAT='#form.TODAYDAT# 'AND  KNUMBER=# form. KNUMBER# "> 

</DBIF> 
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- - 

<!  — 

<!  — 

<1 —  The  iCUBase  Complications  Screen 

<!  — 

<5 —  The  complications  screen  is  not  used 

<! —  in  the  ICUBase  project  because 

<! —  they  are  now  included  with  the  problem  list 

<!  — 

<5—  Written  By  Joe  Mirrow 

<!  — 

<j —  filename;  complications .dbiri 

<!  — 

<1  — 

- - 

<!DOCTYPE  HTML  PUBLIC  "-//IETF //DTD  HTML//EN"> 

<html> 

<head> 

<title>Complications  Screen</title> 

</head> 

<DBQUERY  NAME=" patient"  DATASOURCE=“ ICUBase" 

SQL  =  "SELECT  FNAME , LNAME , UNITNUM , ADMDATE ,  H_ADMDAT  FROM  ADMDC  WHERE 
KNUMBER=#url.id#;  "> 

<DBQUERY  NAME=" complications"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  QAEVENT2  from  DAILY  WHERE  KNUMBER=#url . id# ;  "> 

<DBQUERY  NAME="QA"  DATASOURCE=" ICUBase" 

SQL  =  "select  DESCR  from  popup  where  field  =  'QA'  order  by  DESCR"> 

<DBQUERY  Names "FINDComps"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  *  FROM  DAILY  WHERE  KNUMBER=#url . id#"> 


<body  bgcolor=#ff f f ff> 

<form  action  =  /scripts/dbml .exe?template=icubase/admit .dbm 
methods" POST "> 

<table  widthslOO%> 

<DBOUTPUT  QUERYs " pat ient " > 

<tr><td  widths25%>Patient:  #FNAME#  #LNAME#</td><td  widths25%>Unit  ##; 
#UNITNUM#</td><td  widths25%>Admitted  to  Hospital: 

#DateFormat (H_ADMDAT)#</td><td  widths25%>ICU  Date: 

#DateFormat (ADMDATE) #</td></tr></DBOUTPUT> 

</table> 

<table  bordersl  widthsl00%> 

<tr><td  alignscenter  widths33%><table  width=100%> 

<DBIF  #FINDComps.ARF#  IS  NOT  “Y"> 

<tr><td  alignsright  widths 5 0%>Acute  Renal  Failure</td><td 
alignscenter  width=50%><input  type=checkbox  name="ARF"></td></tr> 
<DBELSE> 

<tr><td  alignsright  widths50%>Acute  Renal  Failure</td><td 
alignscenter  width=50%><input  typescheckbox  name="ARF“ 

CHECKEDx  /  tdx  /  tr> 

</DBIF> 

<DBIF  #FINDComps. BACTEREMIA#  IS  NOT  ■Y"> 
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<tr><td  align=right  width=50%>Bacteremia</td><td  align=center 
width=50%><input  type=checkbox  name= "BACTEREMIA" ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>Bactereinia</td><td  align=center 
width=50%><input  type=checkbox  naine=" BACTEREMIA"  CHECKED></td></tr> 
</DBIF> 

<DBIF  tFINDComps.CDIFF#  IS  NOT  "y"> 

<tr><td  align=right  width=50%>C.  Diff  Colitis</td><td  align=center 
width=50%><input  type=checkbox  naine="CDIFF"></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>C.  Diff  Colitis</td><td  align=center 
width=50%><input  type=checkbox  name="CDIFF"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDComps.CVA#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>CVA</td><td  align=center 
width=50%><input  type=checkbox  naine="CVA"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>CVA</td><td  align=center 
width=50%><input  type=checkbox  naine="CVA"  CHECKED></td></tr> 

</DBIF> 

<DBIF  #FINDComps . DVT#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>DVT</td><td  align=center 
width=50%><input  type=chGclcbox  naine="DVT"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>DVT</td><td  align=center 
width=50%><input  type=checkbox  naine="DVT"  CHECKED></td></tr> 

</DBIF> 

<DBIF  tFINDComps.HYPOTENSIO#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>Hypotension</td><td  align=center 
width=50%><input  type=checkbox  naine="HYPOTENSIO"  ></td></tr> 
<DBELSE> 

<tr><td  align=right  width=50%>Hypotension</td><td  align=center 
width=50%><input  type=checkbox  naine="HYPOTENSIO"  CHECKED></td></tr> 
</DBIF> 

<DBIF  tFINDComps.LIVRFAIL#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>Liver  Failure</td><td  align=center 
width=50%><input  type=checkt)ox  names "LIVRFAIL"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>Liver  Failure</td><td  align=center 
width=50%><input  type=checkbox  name="LIVRFAIL"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDComps.MI#  IS  NOT  “Y"> 

<tr><td  align=right  width=50%>Myocardial  Infarction</td><td 
alignscenter  width=50%><input  type=checkbox  name="MI“  ></td></tr> 
<DBELSE> 

<tr><td  align=right  width=50%>J^ocardial  Infarction</td><td 
align=center  widths 5 0%>< input  typescheckbox  names"MI" 

CHECKEDx /tdx /tr> 

</DBIF> 

<DBIF  #FINDComps. REINTUBA#  IS  NOT  "Y"> 

<trxtd  alignsright  widths50%>Reintubation</tdxtd  alignscenter 
width=50%xinput  typescheckbox  names "REINTUBA"  x/tdx/tr> 

<DBELSE> 
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<tr><td  align=right  width=50%>Reintubation</td><td  align=center 
width=50%><input  type=checkbox  naine=“ REINTUBA-  CHECKBOX /td></tr> 
</DBIF> 

<DBIF  #FINDCoinps. SINUSITIS#  IS  NOT  “Y"> 

<tr><td  align=right  width=50%>Sinusitis</tdxtd  align=center 
width=50%x input  type=checkbox  naine=“ SINUSITIS"  ></tdx/tr> 

<trxtd  align=:right  width=50%>Sinusitis</tdxtd  align=center 
width=50%xinput  type=checkbox  naine=" SINUSITIS"  CHECKED></td></tr> 
</DBIF> 

</table> 

</tdxtd  align=center  width=33%xtable  width=100%> 

<DBIF  #FINDComps.ARDS#  IS  NOT  “Y*> 

<tr><td  align=right  width=50%>ARDS</td><td  align=centeir 
width=50%xinput  type=checkbox  nainG="ARDS"  x/td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>ARDS</td><td  align-center 
width=50%xinput  type=checkbox  names  "ARDS"  CHECKBOX/ td></tr> 

</DBIF> 

<DBIF  #FINOComps.CPR#  IS  NOT  •Y"> 

<trxtd  alignsright  width=50%>Cardiac  Arrest /CPR</tdxtd  align=center 
widths50%xinput  typescheckbox  names "CPR"  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  widths50%>Cardiac  Arrest /CPR</tdxtd  align— center 
widths50%xinput  typescheckbox  names'CPR*  CHECKBOX /tdx/tr> 

</DBIF> 

<DBIF  #FINDComps.CHF#  IS  NOT  •Y"> 

<trxtd  alignsright  widths50%>CHF</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names "CHF"  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  widths50%>CHF</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names'CHF"  CHECKEOx/tdx/tr> 

</DBIF> 

<DBIF  #FINOComps.OECUBITUS#  IS  NOT  ’Y"> 

<trxtd  alignsright  widths50%>Decubitus</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names  "DECUBITUS"  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  widths50%>Decubitus</tdxtd  align=center 
width=50%xinput  typescheckbox  names  "DECUBITUS"  CHECKED  x/tdx/tr> 
</DBIF> 

<DBIF  #FINDComps.GIBLEED#  IS  NOT  "Y"> 

<trxtd  alignsright  widths50%>GI  Bleed</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names "GIBLEED"  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  width=50%>GI  Bleed</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names  "GIBLEED"  CHECKBOX /tdx/tr> 
</DBIF> 

<DBIF  #FINDComps.LINECOMP#  IS  NOT  "Y"> 

<trxtd  alignsright  widths50%>Line  Complication</tdxtd  alignscenter 
widths50%x input  typescheckbox  names "LINECOMP"  x/tdx/tr> 

<DBELSE> 
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<tr><td  align=right  width=50%>Line  Coinplication</td><td  align-center 
width=:50%><input  type=checkbox  naine="LINECOMP"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDComps. MENINGITIS#  IS  NOT  “¥“> 

<tr><td  align=right  width=50%>Meningitis</td><td  align=center 
width=50%>< input  type=checkbox  naine= “MENINGITIS"  ></td></tr> 

<DBELSE>  . 

<tr><td  align-right  width=50%>Meningitis</td><td  align=center 
width=50%><input  type=checkbox  name= “MENINGITIS"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDComps .  PNEUMON#  IS  NOT  “Y“> 

<tr><td  align=right  width=50%>Pneumonia</td><td  align-center 
width-5 0%><input  type- checkbox  name- "PNEUMON"  ></td></tr> 

<DBELSE>  ^  . 

<tr><td  align-right  width=50%>Pneumonia</td><td  align-center 
width-5 0%>< input  type-checkbox  name- "PNEUMON"  CHECKED></td></tr> 
</DBIF> 

<DBIF  tFINDComps. SEIZURE#  IS  NOT  "¥"> 

<tr><td  align-right  width=50%>Seisure</td><td  align-center 
width=50%><input  type-checkbox  name- "SEIZURE"  ></td></tr> 

<DBELSE> 

<tr><td  align-right  width-5 0%>Seisure</td><td  align-center 
width=50%><input  type-checkbox  name- "SEIZURE"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDComps.UTI#  IS  NOT  "Y"> 

<tr><td  align-right  width-5 0%>Wound  Comp 1 i cat ion</td><td  align-center 
width-50%><input  type-checkbox  name="WNDCOMPL"  ></td></tr> 

<DBELSE>  ^  ^  . 

<tr><td  align-right  width-50%>Wound  Complication</td><td  align-center 
width=50%><input  type-checkbox  name-"WNDCOMPL"  CHECKED></td></tr> 
</DBIF> 

</table> 

</td><td  align-center  width-3 4%><table  width=100%> 

<DBIF  #FINDComps.ARYTHMIA#  IS  NOT  “Y"> 

<t:r><td  align-right  width— 50%>Arrhythmia</td><td  align-center 
width=50%><input  type-checkbox  name="ARYTHMIA"  ></td></tr> 

<DBELSE> 

<tr><td  align-right  width=50%>Arrhythmia</td><td  align-center 
width=50%><input  type-checkbox  name="ARYTHMIA"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDComps . CTAMPO#  IS  NOT  "Y"> 

<tr><td  align-right  width-5 0%>Cardiac  Tampanade</td><td  align-center 
width=50%><input  type-checkbox  name="CTAMPO"  ></td></tr> 

<DBELSE> 

<tr><td  align-right  width=50%>Cardiac  Tampanade</td><td  align-center 
width-5 0%><input  type-checkbox  name- " CTAMPO "  CHECKEDx / tdx / tr> 

</DBIF> 

<DBIF  #FINDComps . COMA#  IS  NOT  "Y"> 

<trxtd  align-right  width=50%>Coma</tdxtd  align-center 
width=50%xinput  type-checkbox  name-"COMA"  x/tdx/tr> 

<DBELSE> 
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<tr><td  align=right  width=50%>Coma</td><td  align=center 
width=50%><input  type=checkbox  name=‘'COMA’  CHECKED></td></tr> 

</DBIF> 

<DBIF  #FINDComps.DIC#  IS  NOT  "Y“> 

<tr><td  align=right  width=50%>DIC</td><td  align=center 
width=50%><input  type=checkbox  naroe="DIC*  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>DIC</td><td  align=center 
width=50%><input  type=checkbox  name=''DIC“  CHECKED></td></tr> 

</DBIF> 

<DBIF  #FINDComps.HYPONAT#  IS  NOT  *¥“> 

<tr><td  align=right  width=50%>Hyponatremia</td><td  align=center 
width=50%><input  type=checkbox  names "HYPONAT"  ></td></tr> 

^OBELSE^ 

<tr><td  align=right  width=50%>Hyponatremia</td><td  align=center 
width=50%><input  type=checkbox  names" HYPONAT"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDComps .MOF#  IS  NOT  *Y"> 

<tr><td  alignsright  widths50%>Multiple  Organ  Failure</td><td 
alignscenter  widths50%><input  typescheckbox  names"MOF"  ></td></tr> 
<DBELSE> 

<tr><td  alignsright  widths50%>Multiple  Organ  Failure</td><td 
alignscenter  widths50%><input  typescheckbox  names "MOF" 

CHECKEDx  /  tdx  / 1  r> 

</DBIF> 

<DBIF  #FINDComps.PULMEMBO#  IS  NOT  ■Y"> 

<trxtd  alignsright  widths50%>Pulmonary  Embolus</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names "PULMEMBO"  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  widths50%>Pulmonary  Embolus</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names ■  pulmembo "  CHECKEDx/ tdx /tr> 
</DBIP> 

<DBIF  #FINDComps, SEPSIS#  IS  NOT  •Y"> 

<trxtd  alignsright  widths50%>S^sis</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names" SEPSIS"  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  widths50%>Sepsis</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names"SEPSIS"  CHECKEDx/tdx/tr> 

</DBIF> 

<DBIF  tFINDComps.UTI#  IS  NOT  "Y"> 

<trxtd  alignsright  widths50%>UTI</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names'UTI"  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  widths50%>UTI</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names “UTI"  CHECKEDx/tdx/tr> 

</DBIF> 

<trxtd  alignsright  widths50%x/tdxtd  alignscenter  widths50%x/tdx/tr> 
</table> 

</tdx/tr> 

</table> 

<table  widthsl00%> 

<trxtd  widths33%x/tdxtd  widths40%> 

<strong>Quality  Assurance  Events</strongx/tdx/tr> 
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<tr><td></td><td  width=40%>  - 
<select  names "QA*  size=l> 

<DBOUTPUT  QUERy=“complications“> 

<OPTION>  #QAEVENT2# 

</DBOUTPUT> 

<DBOUTPUT  QUERY="QA''> 

<opt ion>#DESCR# 

</DBOUTPUT> 

</select></td></tr> 

</table> 

<input  types "hidden"  namesKNUMBER  values“<DBOUTPUT>#url . id#</DBOUTPUT>"> 
<input  types“hidden"  namesscreen  values “adcomplications"> 

</tona> 

</body> 

</html> 
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<  I - 

<1  — 

< !  — 

<!  — 

<1  — 

<!  — 

<i  — 

<  I  — 

<1  — 

<  I  — 

<  I  — 

<1  — 

<1  — 

<1  — 

<  I  — 

<1  — 

<  I - 


The  ICUBase  CPT  Code  Menu 

This  screen  generates  links  to  CPT  codes  from  the 
CPTMENU  and  CPTCODES  tables  in  the  ICUBASE  database 
Although  CPT  codes  were  not  used  in  the  ICUBase  project 
this  screen  demonstrates  they  could  be  easily 
incorporated.  This  script  is  for  the  CPTCode  Demo. 

Written  By  Joe  Mirrow 

f i 1 ename :  cpt  codemenupub . dbm 


— > 
— > 

— > 

--> 

--> 

-«> 

--> 

--> 


<title>ICD-9  Codes</title> 

<body  bgcolor=“#ff f f f f "> 

<script> 

function  next  frame  ( f  rameniimber ,  npointer )  { 
var  newlocation  = 

" /scripts/dbml -exe?template=icubase/cptmenucodepub.dbm&nnextpoint="  + 

escape  (npointer)  +  "&frame=*'  +  framenumber; 
var  secondlocation  = 

•  /scripts/dbml  .exe?template=icubase/cptmenucodenew.dbm&frame="  + 

framenumber; 

frametext  =  '&nnextpoint='  +  escape (npointer)  +  '&frame='  +  framenumber 

parent .  frame  [  f  ramenuiriber  ]  =  f  ramet  ext  ; 

parent . frametext [ framenumber ]  =  npointer ; 

parent .frames [1] .location  =  newlocation; 

parent .frames [0] .location  =  secondlocation; 

} 

function  next frame2 (framenumber,  npointer) { 
var  newlocation  = 

" /scripts /dbml .exe?template=icubase/cptmenucodepub.dbm£:nnextpoint="  + 
escape (parent . frametext [ 0] )  +  “&nnextpointl="  +  escape (npointer)  + 
"&:frame="  +  framenumber; 
var  secondlocation  = 

“ /scripts /dbml  .exe?template=icubase/cptmenucodenew.dbmScframe=*'  + 
framenumber  ; 

frametext  =  '  tnnextpoint=: '  +  escape  (parent .  frametext  [  0  ] )  + 

'Stnnextpointl="  +  escape  (npointer)  +  '&frame='  +  framenumber; 

parent . frame [framenumber ]  =  frametext ; 

parent . frametext [ framenumber]  =  npointer ; 

parent.frames[l] .location  =  newlocation; 

parent .frames [0] .location  =  secondlocation; 

} 

function  nextframe3 (framenumber ,  npointer) { 
var  newlocation  = 

*•  /scripts/dbml  .exe?template=icubase/cptmenucodepub.dbm£cnnextpoint="  + 
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escap6(parent.fram6text[0])  +  "tnnextpointl=“  +  escape (npointer)  + 
*&fraine=“  +  framenuinber; 
var  secondlocation  = 

“/scripts/dbml  .exe?teinplate=icubase/cptmenucodenew.cJbin&fraine=“  + 

framenuinber; 

frametext  =  '&nnextpointl='  +  escape (parent. frametext [ 1] )  + 

&nnextpoint='  +  escape (parent .frametext [0] )  +  'fi:nnextpoint2='  + 

escape  (npointer)  +  '&frame='  +  framenuinber; 

parent . f rame [ f ramenumber ]  =  f ramet ext ; 

parent .  frametext  [  framenuinber]  =  npointer; 

parent. frames [1] .location  =  newlocation; 

par ent.frames[0] .location  =  secondlocation; 

} 

function  next frame4 (pointer,  full) { 
parent .cycleopener (pointer, full) ; 

) 

} 

</script> 

<DBSET  #TEMPFRAME#  =  #url.fram6#> 

<DBSET  #NEXTFRAME#  =  tIncrementValue (TEMPFRAME) #> 


<DBIF  #url. frame#  IS  ’'0*> 

<DBQUERY  Name=" first*  DATASOURCE=" ICUBase* 

SQL  =  “select  CPTMENUl  from  mCPTCODE  group  by  CPTMENU1“> 

<UL> 

<DBOUTPUT  QUERY  =  * first “> 

<A  HREF= “javascript: next f rame ('#NEXTFRAME#' , 

' ifirst .CPTMENUl# ' ) “> 

#f irst . CPTMENUl#</a> 

<br> 

</DBOUTPUT> 

</DBIF> 

<DBIF  #url. frame#  IS  “1“> 

<DBQUERY  Name=“ second*  DATASOURCE=" ICUBase" 

SQL  =  “select  CPTMENU2  from  mCPTCode  where  CPTCODEl  = 
'#url .nnextpoint# '  group  by  CPTC0DE2*> 

<UL> 

<DBOUTPUT  QUERY  =  “ second* > 

<A 

HREF=* javascript :nextframe2 ( ' #NEXTFRAME# ' , ' #second.CPTMENU2# ' ) *> 

#  s  econd . CPTMENU2  # < / a> 

<br> 

</DB0UTPUT> 


</DBIF> 

<DBIF  #url. frame#  IS  “2"> 

<DBQUERY  Name=* third*  DATASOURCE=" ICUBase" 

SQL  =  “select  CPTMENU3  from  mCPTCode  where  CPTCODE2  = 
'#url.nnextpointl#'  and  CPTCODEl  =  ' #url .nnextpoint# '  group  by 
CPTC0DE3*> 

<UL> 

<DBOUTPUT  QUERY  =  “third“> 
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<A 

HREF= "javascript: next frames ('iNEXTFRAME#' , '#third.CPTMENU3# ' ) "> 
#second .CPTMENU3#</a> 

<br> 

</DBOUTPUT> 


</DBIF> 

<DBIF  #url. frame#  IS  "3"> 

<DBQUERY  Name="fourth"  DATASOURCE=*ICUBase“ 

SQL  =  "select  DESCR,CPTCODE  from  mCPTCode  where  CPTC0DE3 
=  '#url.nnextpoint2#'  and  CPTC0DE2  =  '#url.nnextpointl#'  and  CPTCODEl  = 
' #ur 1 . nnextpoint# ' " > 

<UL> 

<DBOUTPUT  QUERY  =  " fourth" > 

<A 

HREF=" javascript :nextframe4 { ' tfourth.CPTCODE# ' , '#fourth.DESCR# ' ) "> 

#  fourth . DESCR#</a> 

<br> 

</DBOUTPUT> 


</DBIF> 


</body> 

</html> 
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<! - - - > 

<!—  "> 

<1 —  > 

<1 —  The  ICUBase  CPT  Code  Search  Engine  — > 

<1 —  > 

<! —  This  screen  generates  CPT  code  listings  from  the  — > 

<1 —  CPTCODES  table  in  the  ICUBASE  database.  — > 

<! —  This  screen  is  the  "engine*  behind  the  lookup  entries  — > 

<! —  in  the  cptinput.htm  screen  — > 

<! —  This  script  is  for  the  CPTCode  Demo.  — > 

<!—  "> 

<! —  Written  By  Joe  Mirrow  — > 

<! —  > 

<! —  filename:  cpt codepub. dbm  — > 

<!—  "> 

<!—  — > 

- - - - 

<html> 

<title>CPT  Codes</title> 

<body  bgcolor="#fff fff •> 

<DBIF  iparameterexists (url. first)#  IS  “YES"> 

<DBIF  #url. second#  IS  ""> 

<DBQUERY  Name=" first*  DATASOURCE=" ICUBase* 

SQL  =  "select  CPTCODE , DESCR  from  CPTCODE  where 
charindex( '#url. first# ' jdescr)  >  0*> 

<UL>CPTCode  Description<br> 

<DBOUTPUT  QUERY  =  * first *> 

<li>(#first. CPTCODE#)  #first. DESCR#  <br> 

</DBOUTPUT> 

<DBELSE> 

<UL>CPTCode  Description<br> 

<DBQUERY  Name=* second*  DATASOURCE=* ICUBase* 

SQL  =  "select  CPTCODE, DESCR  from  CPTCODE  where 
charindex('#url.first#' ,descr)  >  0  #url.andor# 
charindex( '#url. second# ' ,descr)  >  0*> 

<DBOUTPUT  QUERY  =  *  second *> 

<li>(#second. CPTCODE#)  #second. DESCR#  <BR> 

</DBOUTPUT> 

</DBIF> 

</DBIF> 


</body> 

</html> 
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1 

till 

1  1  1  1 

V  V  V  V 

The  ICUBase  CPT  Code  Search  Engine 

1  I  1  1  1  1 

1  1  1  1  1  1 

V  V  V  V  V  V  ’ 

This  screen  generates  CPT  code  listings  from  the 
CPTCODES  tables  in  the  ICUBASE  database. 

This  screen  is  frame  opener  for  the  CPT  Code  screen 
for  free  text  searching  of  the  database 

This  script  is  for  the  first  CPTCode  Demo. 

^  :  — 

<!-- 

Written  By  Joe  Mirrow 

A  A  A  A  A 

1  1  1  1  1 

1  1  1  1  1 

1 

f i 1 ename :  cpt  codepub . htm 

<htinl> 

<title>CPT  Codes</title> 


— > 
— > 

— > 
— > 
— > 
— > 
— > 
— > 
--> 
— > 
— > 
— > 


— > 


— > 


> 


<fraineset  rows="30%,70%*'>  ,  , 

<fraine  src='http://chiinera.ined.unc.edu/icubase/cptinput  .htm'  naine=  cptl 

MARGINWIDTH=0  MARGINHEIGHT=0> 

<fraine  .  ^  ^  ^ 

src= 'http : //chimera.med.unc .edu/ script s/dbml .exe?template=icubase/cptcod 
0pub  •  dbm  nainG= '  cptcodsl '  MARGINWIDTH=0  MARGINHEIGHT=0> 

</fraineset> 

</html> 
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r 


A  A  A  A 

till 

fill 

1 

The  ICUBase  CPT  Code  Search  Engine 

A  A  A  A  A  A 

1  1  1  1  1  1 

1  1  t  1  1  1 

This  screen  generates  CPT  code  listings  from  the 
CPTCODES  tables  in  the  ICUBASE  database. 

This  screen  is  frame  opener  for  the  CPT  Code  screen 
for  free  text  searching  of  the  database 

This  script  is  for  the  first  CPTCode  Demo. 

<1  — 
<1  — 

Written  By  Joe  Mirrow 

1 

1  1  1  1  1 

1  1  1  1  1 

V  V  V  V 

f i 1 ename :  cpt  c  odepub . htm 

<htinl> 

<title>CPT  Codes</title> 


> 


— > 
— > 
— > 
— > 
— > 


— > 


— > 


— > 
— > 
— > 
— > 
— > 
— > 
— > 


— > 


> 


<fraineset  rows="30%,70%“> 

<f rame  src= ' http : / / chimera .med. unc . edu/ icubase/cpt input . htm '  naine= ' cpt 1 ' 
MARGINWIDTH=0  MARGINHEIGHT=:0> 

<frame  srcs 'http : / /chimera .med .unc . edu/ scripts/ dbml • exe?template= 
icubase/cptcodepub.dbm  name='cptcodel'  MARGINWIDTH=0  MARGINHEIGHT=0> 
</frameset> 

</html> 
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<1  — 

<!-- 

<i„  The  ICUBase  CPT  Code  Search  Engine 

<1  — 

<1-.^  This  screen  generates  CPT  code  listings  from  the 

<! —  CPTMENU  and  CPTCODES  tables  in  the  ICUBASE  database. 

<1 —  This  screen  is  free  text  input  for  the  CPT  Code  screen 

<1 —  providing  two  text  boxes  and  boolean  operator.  Text 
<1 —  is  then  "escaped**  and  via  JavaScript  (TM)  to 
<1 —  cptcodepub.dbm 
<1  — 

<1 —  This  script  is  for  the  CPTCode  Demo. 

<1  — 

<!—  Written  By  Joe  Mirrow 

<1  — 

<! —  filename:  Cptinput.htm 

<  1  — 

<1“ 

- - 

<html> 

<head> 

<script> 

function  getsearch (first,  nandor,  second) { 
if  (nandor  ==  0){ 
andor  =  'and'} 
else{ 

andor  =  ' or ' }  .  ^ 

newl ocation  =  '/scripts/ dbml . exe ? t  emp la t  e= i cubas  e / cp t  c  odepub . dbm&  first- 
+  escape(first)  +  '&andor='  +  andor  +  '&second='  +  escape (second) ; 
//alert (newlocation) ; 

parent .frames [1] .location  =  newlocation} 

</script> 

</head> 

<title>CPT  Input</title> 

<body  bgcolor=**#FFFFFF**> 

<f  orm  methods  **  POST"  > 

<table  width=100%> 

<tr><td  alignsright  width=25%>Enter  First  Search  Word:  </td><td 
width=50%><input  type=text  size=20  maxlength=20  name="f irst "></td></tr> 
<tr><td  align=right  width=25%></td><td  width=50%><select  name="andor" 
size=l> 

<option  selected>AND</option> 

<opt ion>OR< / opt ion> 

</select></td></tr> 

<tr><td  alignsright  widths25%>Enter  Second  Search  Word:  </td><td 
width=50%><input  type=text  size=20  maxlength=20  names" second" ></td></tr> 
</table><table  widthslOO%><tr><td  alignscenter  widths50%> 

< input  types "Button"  names "Submit"  values "Submit" 
onClicks- getsearch (document . forms [ 0] . first .value, 
document . forms [0] .andor . selectedindex, 

document .  forms  [ 0]  .second. value)  "x/tdxtd  width=60%x/tdx/trx/table> 
</form> 

</body> 

</html> 


— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
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<!--■ 

<  I  — 

<  I  — 

<  I  — 

<  I  — 

<i  — 
<1  — 

<  I  — 

<!  — 

<  I  — 

<1  — 
<1  — 
<!  — 

<  I  — 
<1  — 

<  I  — 
<1  — 
<i  — 


> 


— > 


The  ICUBase  CPT  Code  Menu  > 

— > 

This  screen  generates  the  upper  menu  system  for  the  --> 
CPT  coding  engine.  To  do  this,  entries  from  the  lower  — > 
frame  are  unescaped  and  stored  in  Javascript  (TM)  > 

variables  in  the  parent  document.  Both  the  text  string--> 
and  the  path  are  stored  in  arrays  and  are  called  if  > 

the  link  is  clicked  on  by  the  user.  --> 

— > 

Written  By  Joe  Mirrow  > 

— > 

filename:  cptcodemenunew.dbm  "“> 

— > 

— > 

_ _ 


<html> 

<title>ICD-9  Blank</title> 
<body  bgcolor=''#f f f f f f **> 


<script> 

function  CallSelf (framenumber) { 
frameno  =  'frame'  +  framenumber; 

newlocation  =  •/scripts/dbml.exe?template=icubase/cptmenucodepub.dbm"  + 

parent .  frame  [  framenumber  ] ; 

parent .frames [1] .location  =  newlocation; 

newlocation  = 

Vscripts/dbml.exe?template=icubase/cptmenucodenew.dbm£tframe="  + 

framenumber; 

parent .frames [0] .location  =  newlocation; 

} 

function  WriteFrame (frame) { 

parent . frames [ 0 ] .document .write ( '<UL><IMG  SRC="/icubase/open.gif 

BORDER=0><a  href^" /icubase/cptmenucodepub.htm"  target='‘_top">CPT 

Codes</A><UL>' ) ; 

for  (i=l;  i<frame  +  1;  i++) { 

frameno  =  'frame'  +  i; 

frametextno  =  frameno  +  'text'; 

frametext=  '<IMG  SRC="/icubase/open.gif "  BORDER=0><A 
HREF=“javascript:CallSelf ('  +  i  +  ')“>'  +  parent . frame text [i]  + 
'</A><UL>' 

parent .frames [0] .document .write (framet ext) ; 

} 

} 

framenum  =  <dboutput>#url . frame#</dboutput>; 
parent  .  frames  [  0  ]  .WriteFrame  { framenum)  ; 

</script> 

</body> 

</html> 
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<1  — 

<!  — 

<1  — 

<!  — 

<  I  — 

<!  — 

<1  — 

<  I  — 

<1  — 

<]  — 

<i  — 

<1  — 

<  I  — 

<  I  — 

<1  — 

<i  — 

<i  — 

<  I - 

<htinl> 


The  ICUBase  CPT  Code  Menu 

This  screen  generates  the  lower  menu  system  for  the 
CPT  coding  engine.  To  do  this,  entries  from  the  lower 
frame  are  escaped  and  stored  in  Javascript  (TM) 
variables  in  the  parent  document .  Both  the  text  string 
and  the  path  are  stored  in  arrays  and  are  called  if 
the  link  is  clicked  on  by  the  user. 

Written  By  Joe  Mirrow 

filename:  cptcodemenupub.dbm 


— > 
— > 

— > 

•-> 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 


<title>ICD-9  Codes</title> 


<body  bgcolor=:"#ff f f f f "> 

<script> 

function  nextframe (framenumber,  npointer){ 
var  newlocation  = 

" /scripts /dbml .exe?template=icubase/cptmenucodepub.dbm£:nnextpoint="  + 

escape (npointer)  +  "ficframe^"  +  framenumber; 
var  secondlocation  = 

“ /scripts /dbml  .exe?template=icubase/cptmenucodenew.dbm6cframe="  + 
framenumber; 

frametext  =  'ficnnextpoint='  +  escape  (npointer)  +  '&frame=:'  +  framenumber 
//alert  (frametext) 

parent . frame [ f  ramenumber ]  =  f  ramet  ext ; 
parent . frametext ( framenumber]  =  npointer ; 

/ /alert  (parent .  frametext  [ f ramenxamber ] ) 
parent .frames [1] .location  =  newlocation; 
parent .frames [0] .location  =  secondlocation; 

} 

function  next frame2 (framenumber,  npointer) { 
var  newlocation  = 

"/scripts/dbml  .exe?template=icubase/cptmenucodepub.dbm£cnnextpoint="  + 
escape (parent . frametext [ 1] )  +  “&nnextpointl="  +  escape (npointer)  + 
"&frame="  +  framenumber; 
var  secondlocation  = 

"/scripts/dbml  .exe?template=icubase/cptmenucodenew.dbmScframe=*'  + 
f  rameniimber ; 

frametext  =  'ficnnextpoint='  +  escape (parent. f ramet ext [1] )  + 

'&nnextpointl='  +  escape  (npointer)  +  '6cframe='  +  framenumber; 

parent .frame [framenumber]  =  frametext; 

parent . frametext [framenumber ]  =  npointer; 

parent.frames[l] .location  =  newlocation; 

parent .frames [0] .location  =  secondlocation; 

} 
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function  nextframeS (framenumber,  npointer) { 
var  newlocation  = 

“  /scripts/dbml  .exe?template=icubase/cptinenucodepub.dbin&nnextpoint=“  + 

escape  (parent,  frametext  [1] )  +  •£cnnextpointl=''  + 

escape  (parent,  frametext  [2] )  +  '■&nnextpoint2=“  +  escape  (npointer)  + 
■&frame="  +  framenumber; 

Veir  secondlocation  = 

" /scripts /dbml .exe?template=icubase/cptmenucodenew.dbm£cframe="  + 
framenumber; 

frametext  =  '&nnextpointl='  +  escape (parent . frametext [2] )  + 

'&nnextpoint='  +  es cape ( par ent.framet ext 1 1] )  +  '  fi:nnextpoint2= '  + 

escape (npointer)  +  '&frame='  +  framenumber; 

par ent . f r ame [ f r amenumber ]  =  f r amet ext ; 

parent . frametext [framenumber]  =  npointer; 

parent.frames[l] .location  =  newlocation; 

parent . frames [ 0] . location  =  secondlocation; 

} 

function  nextframe4 (pointer,  full) { 
parent . cycleopener (pointer , full ) ; 

} 


</script> 

<DBSET  #TEMPFRAME#  =  #url.frame#> 

<DBSET  #NEXTFRAME#  =  tIncrementValue (TEMPFRAME) #> 


<DBIF  #url. frame#  IS  •0"> 

<DBQUERY  Name=*firsf  DATASOURCE=" ICUBase" 

SQL  =  “select  CPTMENUl  from  mCPTCODE  group  by  CPTMENU1“> 

<UL> 

<DBOUTPUT  QUERY  =  “ first "> 

<A  HREF=“ javascript :nextframe ( '#NEXTFRAME# ' ,  'iCPTMENUl#' ) “> 
#f irst . CPTMENUl#</a> 

<br> 

</DBOUTPUT> 

</DBIF> 

<DBIF  #url. frame#  IS  “1*> 

<DBQUERY  Name=“ unescape"  DATASOURCE=“ICUBASE" 

SQL  =  “unescape  '#url.nnextpoint#' “> 

<DBQUERY  Names “second"  DATASOURCE=“ICUBase" 

SQL  =  “select  CPTMENU2  from  mCPTCode  where  CPTMENUl  = 
'#unescape.nextpoint#'  group  by  CPTMENU2“> 

<UL> 

<DBOUTPUT  QUERY  =  “ second “> 

<A  HREF= “javascript : nextf rame2 ( ' #NEXTFRAME# ' , ' #CPTMENU2# ' ) “> 
#CPTMENU2#</a> 

<br> 

</DBOUTPUT> 


</DBIF> 

<DBIF  #url. frame#  IS  “2“> 

<DBQUERY  Names “unescape"  DATASOURCE=“ICUBASE“ 
SQL  =  “unescape  '#url.nnextpoint#' “> 
<DBQUERY  Name=“unescapel“  DATASOURCE=“ICUBASE“ 
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SQL  =  'unescape  'iurl.nnextpointl#' “> 

<DBQUERY  Name=* third*  DATASOURCE=“ ICUBase* 

SQL  =  "select  CPTMENU3  from  mCPTCode  where  CPTMENU2  = 
'tunescapel.nextpoint#'  and  CPTMENUl  =  '#unescape.nextpoint#'  group  by 
CPTMENU3‘> 

<UL> 

<DBOUTPUT  QUERY  =  * third *> 

<A  HREF=* javascript: nextframe3 ( ' #NEXTFRAME# ' , '#CPTMENU3#' ) “> 
#CPTMENU3#</a> 

<br> 

</DBOUTPUT> 


</DBIF> 

<DBIF  furl. frame#  IS  "3*> 

<DBQUERY  Name=" unescape*  DATASOURCE=* ICUBASE* 

SQL  =  "unescape  '#url.nnextpoint#' *> 

<DBQUERY  Name=*unescapel*  DATASOURCE=“ ICUBASE* 

SQL  =  "unescape  'iurl.nnextpointl#' *> 

<DBQUERY  Name=“unescape2*  DATASOURCE=* ICUBASE* 

SQL  =  "unescape  '#url.nnextpoint2#' *> 

<DBQUERY  Name=* fourth"  DATASOURCE=" ICUBase" 

SQL  =  "select  DESCR , CPTCODE  from  mCPTCode  where  CPTMENU3 
=  '#unescape2.nextpoint#'  and  CPTMENU2  =  'iunescapel.nextpoint#'  and 
CPTMENUl  =  'iunescape.nextpoint#' "> 

<UL> 

<DBOUTPUT  QUERY  =  " fourth" > 

<A  HREF=" javascript : next frame# ( ' # CPTCODE#' , '#DESCR# ' ) *> 
#fourth.DESCR#</a> 

<br> 

</DBOUTPUT> 


</DBIF> 


</body> 

</html> 
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<1 - - - 

<1  — 

<1  — 

<1^^  The  ICUBase  CPT  Code  Menu  Search  Engine 

<  I  — 

<1 —  This  screen  generates  CPT  code  engines  from  the 

<1 —  CPTMENU  and  CPTCODES  tables  in  the  ICUBASE  database. 

<! —  This  screen  is  frame  opener  for  the  CPT  Coding  screens 
< I  - _  cptmenucodepub • dbm  and  cptmenucodenew . dbm 

<i —  Arrays  store  frame  text  and  search  strings 
<1  — 

<1 —  This  script  is  for  the  second  GPTCode  Demo. 

<i  — 

<i —  Written  By  Joe  Mirrow 

<  I  — 

<1  —  f i 1 ename :  cp t menuc  odepub . htm 

<1  — 

<i  — 

<  I - 

<html> 

<title>Procedure  Codes</title> 

<META  HTTP-EQUIV=“ Pragma"  CONTENT= "no -cache "> 

<script> 

function  cycleopener (dcode,  full){ 

alert ("The  CPT  Code  for  "  +  full  +  “  is  "  +  dcode) ; 


> 


— > 


— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 

— > 
— > 
— > 
— > 
— > 
— > 
— > 


> 


} 

frame  =  new  Array (5 ); 
frame[l]  = 
frame  [2]  = 
frame  [3]  = 
frame[4]  = 
frame  [5]  = 

frametext  =  new  Array(5); 
f rametext [1]  = 
frametext [2]  = 
frametext [3]  = 
frametext [4]  = 
frametext  [5]  = 

</script> 


<frameset  rows="20%,80%"> 

<  frame 

src=  "http :  /  /chimera. med.unc.edu/scr ipts/dbml  .exe?template=icubase/cptmen 
ucodenew .  dbm&f  rame=0 '  name= '  pcode2  '  MARGINWIDTH=0  MARGINHEIGHT=0> 

<  frame 

src= 'http : //chimera. med.unc.edu/scripts/dbml.exe?template=icubase/cptmen 
ucodepub . dbmSt frame =0  name='pcodel'  MARGINWIDTH=0  MARGINHEIGHT=0> 
</frameset> 

</html> 
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<!—  The  ICUBase  ICD-9  Code  Menu 

<  i  --  ” 

<1 —  This  screen  generates  links  to  ICD-9  codes  from  the 

<1 M_DCODE  and  DCODE  tables  in  the  ICUBASE  database. 

<1 —  Codes  are  escaped  and  stored  in  Javascript  (TM) 

<1 —  variables  in  the  parent  document.  Both  the  text  string- 

<i—  and  the  path  are  stored  in  arrays  and  are  called  if 

<i«-  the  link  is  clicked  on  by  the  user. 

<1-- 

<i--  Written  By  Joe  Mirrow 

<!  — 

<1 —  filename:  dcode.dbm 


<html> 


<title>ICD-9  Codes</title> 


<body  bgcolor="#ff f ff f "> 

<script> 

function  next frame (framenumber,  npointer,  endofc,  descr) { 
var  newlocation  = 

** /scripts /dbml  .exe?template=icubase/dcode.dbm&nnextpoint=“  +  npointer  + 

•'Scframe=*‘  +  framenumber  +  "&endofc=“  +  endofc; 
var  secondlocation  = 

" /scripts/dbml .exe?template=icubase/dcode2 .dbmScframe="  +  framenumber; 

frametext  =  '&nnextpoint='  +  npointer  +  'fitframe='  +  framenumber  + 
'&endofc='  +  endofc 

parent .frame [framenumber]  =  frametext; 
parent  .frametext  [framenumber]  =  desert- 
parent,  frames  [1]  .location  =  newlocation; 
parent . frames [ 0] . location  =  secondlocation; 


} 

function  nextframe2 (framenumber ,  npointer,  endofc,  full) { 
if  (endofc==-N-) { 
endofc  =  "Y"; 

} 

if  (endofc  ==  *‘X"){ 

parent . cycleopener (npointer) ; 

parent .close  0 ; 

} 

var  newlocation  = 

• /scripts /dbml .exe?template=icubase/dcode.dbm£tnnextpoint=”  +  npointer  + 

"Scframe=*'  +  framenumber  +  “Scendofc=*'  +  endofc; 
var  secondlocation  = 

Vscripts/dbml.exe?template=icubase/dcode2.dbmScframe="  +  framenumber; 

frametext  =  '£cnnextpoint='  +  npointer  +  'S:frame='  +  framenumber  + 
'ficendofc='  +  endofc 

parent . frame [framenumber ]  =  frametext ; 
parent .frametext [framenumber]  =  full; 
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if  (endofc  !=  "X'X 

parent. f rames [1] .location  =  newlocation; 
parent . frames [ 0] .location  =  secondlocation; 

} 

) 

</script> 

<DBSET  tTEMPFRAME#  =  #url.frame#> 

<DBSET  #NEXTFRAME#  =  # Increment Value (TEMPFRAME) #> 


<DBIF  #url. endofc#  IS  “N"> 

<DBQUERY  Name=“ first"  DATASOURCE=" ICUBase" 

SQL  =  "select  *  from  M_DCODE  where  NPOINTER  = 

' #ur 1 . nnextpoint# ' " > 

<UL> 

<DBOUTPUT  QUERY  =  " first "> 

<A  HREF= " j  avascript : next  frame ( ' iNEXTFRAME# ' , 

' #first. NNEXTPOINT# ' ,  '#first .ENDOFC# ' ,  '#first.DESCR#' ) "> 
#first.DESCR#</a> 

<br> 

</DBOUTPUT> 

<DBELSE> 

<DBQUERY  Names "second"  DATASOURCE=" ICUBase" 

SQL  =  "select  *  from  DCODE  where  NPOINTER  = 

' #ur 1 . nnextpoint# ' " > 

<UL> 

<DBOUTPUT  QUERY  =  " second" > 

<A 

HREF=" javascript :nextframe2 ('#NEXTFRAME#' , '#DCODE#' , '#ENDOFC#' , '#full_DE 
SCR#') "> 

#full_DESCR#</a> 

<br> 

</DBOUTPUT> 


</DBIF> 


</body> 

</htinl> 
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<1  — 

<  I  — 

<  I  — 
<!  — 
<i-- 

<1  — 
<!  — 
<i  — 
<1  — 

<  I  — 

<  I  — 
<!  — 
<J  — 

<  I  — 
<!  — 
<1  — 
<1-- 


The  ICUBase  ICD-9  Coding  Engine 

This  screen  generates  ICD-9  code  engines  from  the 
M_DCODE  and  DCODE  tables  in  the  ICUBASE  database. 

This  screen  is  frame  opener  for  the  ICD*-9  code  screens 
dcode . dbm  and  dcode2 . dbm 

Arrays  store  frame  text  and  search  strings  and  the 
cycleopener  function  passes  the  code  back  to  the 
html  form  that  opened  the  coding  window 

Written  By  Joe  Mirrow 

filename:  dcode.htm 


- - 

<html> 

<title>ICD-9  Codes</title> 
<script> 

function  cycleopener (dcode) { 
opener .advanceframel (dcode) ; 

} 


— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 

— > 
— > 
— > 
— > 
— > 


frame  =  new  Array (5); 
frame  [1]  =  "; 
frame  [2]  = 
frame[3]  = 
frame  [4]  = 
frame  [5]  = 

frame text  =  new  Array (5); 
frametext[l]  = 
frametext [2]  =  ' ' ; 
frametext [3 ]  =  ' ' ; 
frametext [4]  = 
frametext [5]  = 

</script> 


<frameset  rows="20%,80%"> 

<frame 

src= ' http : / /chimera .med . unc . edu/ scripts /dbml . exe? template=icubase/dcode2 
.dbm&frame=0&descr=nothing'  name= ' dcode2 '  MARGINWIDTH=0  MARGINHEIGHT=0> 
<frame 

src= ' http : / /chimera .med . unc . edu/ scripts /dbml . exe?template=icubase/ dcode . 
dbmficf rame=0£cnnextpoint=l£:endof  c=N'  name=' dcode  1'  MARGINWIDTH=0 
MARGINHEIGHT=0> 

</frameset> 

</html> 
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<! — 

<!—  — > 

<l —  The  ICUBase  ICD-9  Code  Menu  — > 

<! —  ^ 

<! —  This  screen  generates  the  upper  menu  system  for  the  — > 

<! —  ICD-9  coding  engine.  To  do  this,  entries  from  the  — > 

<! —  lower  frame  are  unescaped  and  stored  in  Javascript  (IM) — > 

<1 —  variables  in  the  parent  docviment.  Both  the  text  string — > 

<! —  and  the  path  are  stored  in  arrays  and  are  called  if  — > 

<! —  the  link  is  clicked  on  by  the  user.  --> 

<!—  "> 

<! —  Written  By  Joe  Mirrow  — > 

<  1  —  — > 

<! —  filename:  dcode2.dbm  — > 

<!—  — > 


^  ; - 

- - - 

<html> 

<title>ICD-9  Blank</title> 

<body  bgcolor="#ff f f f f "> 

<script> 

function  CallSelf (framenumber) { 

newlocation  =  “/scripts/dbml.exe?template=icubase/dcode.dbm"  + 

parent .  frame  [  f  ramenimtoer  ]  ; 

parent. frames [1] .location  =  newlocation; 

newlocation  =  ■/scripts/dbml.exe?template=icubase/dcode2 .dbmS;frame=“  + 
framenumber; 

parent. f rames [0] .location  =  newlocation; 

} 

function  WriteFrame (frame) { 

parent . frames [ 0 ] .document .write ( '<UL><IMG  SRC=" /icubase/open.gif ■ 
BORDERsOxa  href=“/scripts/dbml .exe?template=icubase/dcode.htm" 
target=*_top">ICD-9  Codes</A><UL>' ) ; 
for  (i=l;  i<frame  +  1;  i++){ 

frametexts  '<IMG  SRC=“ /icubase/open.gif*  BORDER=0><A 
HREF=*javascript;CallSelf ('  +  i  +  ')*>'  +  parent. frametextti]  + 

' </A><UL> ' 

parent . frames [0] .document .write (frametext) ; 

} 

} 

framenum  =  <dboutput>#url.frame#</dboutput>; 
parent . frames [0] .WriteFrame (framenum) ; 

</script> 

</body> 

</html> 
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<1 - - 

<•“ 

<i--  . 

<1 _  The  ICUBase  ICD-9  Free  Text  Search  Engine 

<!—  .  .  ^ 

<1--  This  screen  generates  ICD-9  code  listings  from  the 
<1 —  DCODE  table  in  the  ICUBASE  database. 

<1 —  Free  text  entries  are  made  on  the  "problem  list"  entry 
<! —  screen  and  this  script  runs  the  built  in  soundex (TM) 

<1 —  search  of  the  table.  Results  of  the  search  are 
<! —  displayed  as  links. 

<!  — 

<!—  Written  By  Joe  Mirrow 

<!  — 

<! —  filename;  dcodesearch . dbm 

< !  — 

<!  — 

- - 

<html> 

<title>ICD-9  Codes</title> 

<script> 

function  cycleopener (dcode) { 
opener .advanceframel (dcode) ; 

) 

function  closewindow ( ) { 
parent . close ( ) ; 

} 

function  nextframe2 (npointer) { 
parent . cycleopener (npointer ) ; 
parent . close { ) ; 

} 

function  makestatus (stuff ) { 
parent . document . status  =  stuff; 
return  true ; } 

</script> 

<body  bgcolor=#fff f ff> 

<DBQUERY  Name =" unescape"  DATASOURCE= " ICUBASE " 

SQL  =  "unescape  ' #url. problem# ' "> 

<DBQUERY  Name= "dcodesearch"  DATASOURCE="ICUBase" 

SQL  =  "select  total=count (*) ,  dcode,  dcode. full_descr 
from  dcode  where  charindex( 'tunescape.nextpoint#' , full_descr)  >  0  group 
by  dcode, full_descr"> 

<DBIF  #dcodesearch. total#  GREATER  THAN  "0"> 

<A  HREF=" javascript :closewindow() " 

onMous eOver=" window .parent . status = 'Return  to  Problem  List';return 
true; ">Click  Here  If  Not  In  This  List</a><br><BR><UL> 

<DBOUTPUT  QUERY  =  "dcodesearch" > 

<A  HREF=" javascript :nextframe2 ( '#DCODE#' ) "> 

#full_DESCR#</a> 

<br> 
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</DBOUTPUT> 


<DBELSE> 

<hl>Problein  could  not  be  found  from  your  SOUNDEX  Search</hl> 

<BR> 

Click  <a  href  = 

"http: //chimera.med .unc . edu/scripts/dbml .exe?template=icubase/probleml .d 
kan&KNUMBER=<DBOUTPUT>#url .KNUMBER#</DBOUTPUT>ttodaydat=<DBOUTPUT>#url .to 
daydat#</DBOUTPUT>&unitnum=<DBOUTPUT>#url .unitnum#</DBOUTPUT>&daykey=<DB 
OUTPUT>#url.daykey#</DBOUTPUT>“>here</a>  to  return. 

</DBIF> 

</html> 
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<! 

<! 

<! 

<! 

<! 

<1 

<! 

<i 

<1 

<i 

<1 

<1 

<1 

<1 

<1 

<i 


The  ICUBase  (First)  Demographics  Screen 

This  demographics  screen  is  provided  for  the  first 
entry  of  patient  demographics  only.  If  the  patient 
is  in  the  database  then  demo4.dbm  is  used  to  retrieve 
the  data.  This  was  the  first  ICUBase  screen  made! 
Dropdown  boxes  are  generated  from  the  POPUP  table 
in  the  database. 

Written  By  Joe  Mirrow 

f i 1 ename :  demo3 . dbm 


<i-- 

<  I - 

<IDOCTYPE  HTML  PUBLIC  "-//IETF//DTD  HTML//EN-> 


> 


— > 


— > 


— > 


— > 


— > 
—  > 
— > 
— > 


— > 


--> 
— > 
— > 
— > 

— > 


> 


<DBQUERY  NAME="DNR"  DATASOURCE=" ICUBase** 

SQL  =  -SELECT  CHOICE  FROM  POPUP  WHERE  FIELD='DNR' 


ORDER  by  CHOICE; 


-> 


<DBQUERY  NAME=-Race-  DATASOURCE=- ICUBase - 

SQL  =  -SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= 'RACE' ;  “> 


<DBQUERY  NAME= -Admit-  DATASOURCE=- ICUBase - 

SQL  =  -SELECT  POPUP .CHOICE,  POPUP. DESCR  FROM  POPUP  WHERE 
( POPUP. FIELD='ADMITYPE')  ORDER  BY  POPUP .CHOICE;  -> 


<DBQUERY  NAME=-CHREVAL-  DATASOURCE=- ICUBase " 

SQL  =  -SELECT  POPUP . CHOICE ,  POPUP. DESCR  FROM  POPUP  WHERE 
POPUP. FIELD='CHREVAL'  order  by  POPUP. DESCR;  -> 


<DBQUERY  NAME= -Reason-  DATASOURCE= - ICUBase - 

SQL  =  -SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' ADREASON'  ORDER  BY 
CHOICE;  -> 

<DBQUERY  NAME=-ICU-  DATASOURCE= - ICUBase - 

SQL  =  -SELECT  CHOICE  FROM  POPUP  WHERE  FIELD='ICU'  ORDER  BY  CHOICE;  “> 

<DBQUERY  NAME=-ATTENDIN-  DATASOURCE=- ICUBase - 

SQL  =  -SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' ATTENDIN '  ORDER  BY 
CHOICE;  -> 

<DBQUERY  NAME=- SERVICE-  DATASOURCE=- ICUBase " 

SQL  =  -SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' SERVICE '  ORDER  BY  CHOICE; 


<DBQUERY  NAME=-KNUM-  DATASOURCE=- ICUBase - 

SQL  =  -SELECT  LAST=MAX  (KNUMBER)  FROM  ADMDC;  ”> 

<DBSET  #TEMPKEY#  =  #KNUM.LAST#> 

<DBSET  #KNUMBER#  =  # Increment Value (TEMPKEY) #> 

'<html> 

<head> 

<title>Admission  Demographics  Screen</title> 
</head> 
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<body  bgcolor=#f f f f f f> 

<fonn  action  =  /scripts/dbml.exe?template=icubase/adinit.dbin 
methods* POST •> 

<tablG  width=100%>  .  ,  ^  ^  4. 

<tr><td  width=20%><font  si2e=3>Last  Name:</f ontx/tdxtd  width=20%xfont 
size=3>First  Name :</f ontx/tdxtd  width=20%xfont  size=3>Unit 
#:</f ontx/tdxtd  width=20%xfont  size=3>Admitted  to 
Hospital  ;</f ontx/tdxtd  width=20%xfont  size=3>Admitted  to 
ICU:</fontx/tdx/tr> 

<DBOUTPUT> 

<trxtdxfont  size=5xinput  type=text  size=15  maxlength=15 
name=“IjNAME“x/fontx/tdxtdxfont  size=5xinput  type=text  size=15 
maxlength=15  name=*FNAME*x/fontx/tdxtdxfont  size=5xinput  type=text 
size=12  maxlength=12  name=*UNITNUM*x/fontx/tdxtdxfont  size=5xinput 
type=tGXt  size=8  maxlength=8  name=*H_ADMDAT" 

value=“#url .TODAYDATi'x/fontx/tdxtdxfont  size=5xinput  type=text 
size=8  maxlength=8  name=*ADMDATE" 
values  *  #url .  TODAYDAT#  *  ><  /  f  ontx/tdx/ tr> 

</DBOUTPUTx/table> 

<table  widthsl00%> 

<trxtd  valignstop  width=25%xfont  size=3>Date  of  Birth :</fontxfont 
sizesBxinput  typestext  size=8  maxlength=8  name="  DOB “x/f ontx/tdxtd 
valignstop  widths25%xfont  sizes3>Race:</font> 

<select  names* RACE* > 

<DBOUTPUT  QUERYs*Race*> 

<OPTION>  #CHOICE# 

</DBOUTPUT> 

</selectx/fontx/tdxtd  valignstop  widths25%xfont 
sizes3>Gender  ;</fontxfont  sizes5> 

<select  names*SEX*  sizesl> 

<opt ion>M< / opt ion> 

<opt i on>F< / opt ion> 

</selectx/fontx/tdx/tr> 

</table> 

<table  widthsl00%  bordersl> 

<trxtdxfont  sizes3>Chronic  Health  Eval</fontx/tdxtdxfont  sizes5> 
<select  names *CHREVAL*  sizesl> 

<DBOUTPUT  QUERYs*CHREVAL*> 

<option>#DESCR# 

</DBOUTPUT> 

</selectx/fontx/td> 

<tdxfont  sizes3>ICU:</fontx/tdxtdxfont  si2es3xselect  names*  1CU"> 
<DBOUTPUT  QUERYs*ICU*> 

<option>#CHOICE# 

</DBOUTPUT> 

</select> 

<  /  f  ont  X  /  tdx  / 1  r> 

<trxtdxfont  sizes3>Admit  Type</fontx/tdxtdxfont  sizes3> 

<select  names *aDMITYPE*> 

<DBOUTPUT  QUERYs* Admit *> 

<option>#DESCR# 

</DBOUTPUT> 

</selectx/fontx/tdxtdxfont  sizes3>Service:</f ontx/tdxtd> 

<select  names* service"  sizesl> 

<DBOUTPUT  QtJERYs*  SERVICE  *> 

<opt i on># CHOICE# 

</DBOUTPUT> 

</select> 
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</td></tr> 

<tr><td><font  size=3>Admission  Reason</font></td> 

<td><font  size=5><select  name=*ADREASON"> 

<DBOUTPUT  QUERY= • Reason ■> 

<option>#CHOICE# 

</DBOUTPUT> 

</select></font></td><td><font  size=3>Service  Att :</font></td><td><font 
size=3> 

<select  naine=* ATTENDIN’  size=l> 

<DBOUTPUT  QUERy=*ATTENDIN’> 

<option>#CHOICE# 

</DBOUTPUT> 

</select></font></td></tr> 

<tr><td><font  size=3>Trauina</f ontx/tdxtdxINPUT  TYPE=“RADIO“ 
NAMEs’TRAUMA’  VALUE=“Y“>Yes<INPUT  TYPE="RADIO"  NAME=’TRAUMA"  VALUE=’N“ 
CHECKED>No 

</tdxtd> 

DNR:</tdxtdxselect  naine=* CODESTATUS"  size=l> 

<DBOUTPUT  QUERY=:"DNR"> 

<option>#CHOICE# 

</DBOUTPUT> 

</selectx/tdx/tr> 

</table> 

</tablexinput  type  =  "hidden"  name  =  screen  value  =  "addemo“> 

<input  type  =  "hidden"  Name  =  KNUMBER  value  = 

<DBOUTPUT>#KNUMBER#  < /DBOUTPUT» 

<input  types "hidden"  name=TODAYDAT 

values " <DBOUTPUT>#ur 1 . todaydat #< /DBOUTPUT> " > 

<input  types "hidden"  namesDAYKEY 

values " <DBOUTPUT>#ur 1 . daykey #< /DBOUTPUT> " > 

</form> 

</body> 


</html> 


<1 
<1 
<1 
<1 
<! 
<! 
<i 
<i 
<i 
<i 
<1 
<1 
<  I 
<! 
<! 
<! 
<1 
<1 
<! 
<1 


The  ICUBase  (Second)  Demographics  Screen 

This  demographics  screen  is  provided  for  subsequent 
entris  of  patient  demographics.  It  is  not  provided 
in  the  Progress  Note  state,  however.  Demographics  can 
therefore  only  be  entered  under  the  "New  Patient"  state 
Dropdown  boxes  are  generated  from  the  POPUP  table 
in  the  database  with  current  entries  defaulted  to  the 
top . 

Written  By  Joe  Mirrow 
filename:  demo4.dbm 


DOCTYPE  HTML  PUBLIC  " -//IETF/ /DTD  HTML//EN"> 


--> 

*-> 

--> 

--> 

--> 

--> 

--> 


<DBQUERY  NAME="DNR"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  FIELD='DNR'  ORDER  by  CHOICE;  "> 

<DBQUERY  NAME="Race"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' RACE ' ;  "> 

<DBQUERY  NAME= "Admit"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  POPUP .CHOICE,  POPUP. DESCR  FROM  POPUP  WHERE 

{ POPUP. FIELD= ' ADMITYPE ' )  ORDER  BY  POPUP .CHOICE;  "> 

<DBQUERY  NAME="CHREVAL"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  POPUP . CHOICE,  POPUP. DESCR  FROM  POPUP  WHERE 

POPUP. FIELD='CHREVAL'  order  by  POPUP. DESCR;  "> 

<DBQUERY  NAME="Reason"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' ADREASON'  ORDER  BY 

CHOICE;  "> 

<DBQUERY  NAME="ICU"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  FIELD='ICU'  ORDER  BY  CHOICE;  "> 

<DBQUERY  NAME="ATTENDIN"  DATASOURCEs* ICUBase" 

SQL  =  “SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' ATTENDIN '  ORDER  BY 

CHOICE;  "> 

<DBQUERY  NAME=" SERVICE"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' SERVICE '  ORDER  BY  CHOICE; 

"> 

<DBQUERY  Name=“ADMDC"  DATASOURCE=" ICUBase" 

SQL=  "SELECT  *  from  ADMDC  WHERE  KNUMBER=#url  .KNUMBER# "> 

<DBQUERY  Name=" PATIENT"  DATASOURCE=“ ICUBase" 

SQL=  "SELECT  *  from  PATIENT  WHERE  UNITNUM= '  #url  .UNITNUM#  '  " > 

<DBQUERY  Names "DNR2"  DATASOURCE  =  "ICUBase" 

SQL  =  "SELECT  DNR  from  DAILY  WHERE  TODAYDAT= ' #url .TODAYDAT# '  and 

KNUMBER=#url .KNUMBER# " > 


79 


<DBQUERY  NAME="Health“  DATASOURCE= * ICUBase ■ 

SQL  =  "SELECT  DESCR  FROM  POPUP  WHERE  (POPUP.FIELD='CHREVAL'  AND 
POPUP . CHOICE  =  ' #ADMDC . CHREVAL# ' ) ;  “ > 

<DBQUERY  NAME="Adinittyp"  DATASOURCE="ICUBase" 

SQL  =  "SELECT  DESCR  FROM  POPUP  WHERE  ( POPUP. FIELD='ADMITYPE'  AND 
POPUP . CHOICE  =  ' #ADMDC . ADMITYPE# ' ) ;  " > 

<html> 

<head> 

<title>Ad]iiission  Demographics  Screen</title> 

</head> 

<body  bgcolor=#fff f f f> 

<form  action  =  /scripts/dbml.exe?template=icubase/admit.dbm 
methods" POST "> 

<table  width=100%><tr><td  width=20%><font  size=3>Last 

Name:</font></td><td  width=20%><font  size=3>First  Name:</font></td><td 
width=20%><font  size=3>Unit  # :</font></td><td  width=20%><font 
size=3>Admitted  to  Hospital :</font></td><td  width=20%><font 
size=3>Admitted  to  ICU;</font></td></tr> 

<DBOUTPUT> 

<tr><td><font  sizesBxinput  type=text  size=15  maxlength=15  name="LNAME" 
values "  #pat  ient .  LNAME#  "  ><  /  f ont ><  /  tdxt dxf ont  s  i  z  es  5x  input  typest ext 
sizeslB  maxlengthslS  names"FNAME" 

values"#patient.FNAME#"x/fontx/tdxtdxfont  sizesBxinput  typestext 
sizesl2  maxlengthsl2  names "UNITNUM" 

values "#patient.UNITNDM#“x/fontx/tdxtdxf ont  sizesBxinput  type=text 
sizesS  maxlengthsS  names •H_ADMDAT" 

values "#Dateformat  (admdc  .H_ADMDAT)  #"x/fontx/tdxtdxfont  sizesBxinput 

typestext  sizesS  maxlength=8  names "ADMDATE" 

values  “  #Datef  ormat  ( admdc .  ADMDATE )  # "  x / f  ontx /tdx  / tr> 

</ted3le> 

<table  widthsl00%> 

<trxtd  valignstop  width=25%xfont  sizes3>Date  of  Birth :</fontxf ont 
sizesBxinput  typestext  sizesS  maxlengthsS  names“DOB" 
values "#Date format  (patient.DOB)  #"x/fontx/tdxtd  valignstop 
widths2  B% X  f ont  s i z es3  >Race : < / f ont > 

<select  names" RACE "> 

<option>  #pat ient. RACE# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs"Race"> 

<option>#CHOICE# 

</DBOUTPUT> 

</selectx/fontx/tdxtd  valignstop  widths25%xf ont 
sizes3>Gender  :</fontxfont  sizesB> 

<select  names" SEX"  sizesl> 

<DBOUTPUT  QUERYs" PATIENT •> 

<OPTION>  #SEX# 

</DBOUTPUT> 

<opt ion>M</ opt ion> 

<opt i on>F< /opt ion> 

</selectx/f  ontx/ tdx/ tr> 

</table> 

<table  widthsl00%  border=l> 

<trxtdxfont  sizes3>Chronic  Health  Eval</fontx/tdxtdxfont  sizesB> 


80 


<select  names "CHREVAL*  sizesi> 

<DBOUTPUT  QUERYs ’Health" > 

<OPTION>  #DESCR# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs*CHREVAL’> 

<option>#DESCR# 

</DBOUTPUT> 

</select></font></td> 

<td><font  sizes3>ICU:</font></td><td><font  sizes5> 

<select  names" ICU“> 

<DBOUTPUT  QUERYs*ADMDC"> 

<OPTION>  #ICU# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs"ICU’> 

<option>#CHOICE# 

</DBOUTPUT> 

</select> 

</font></td></tr> 

<tr><td><font  sizes3>Admit  Type</font></td><td><f ont  sizes5> 

<select  names ■AEMITYPE"> 

<DBOUTPUT  QUERY="Admittyp*> 

<OPTION>  #DESCR# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs "Admit ’> 

<option>#DESCR# 

</DBOUTPUT> 

</select></font></td><td><font  sizes3>Service:</font></td><td> 

<select  names "service"  sizesl> 

<DBOUTPUT  QUERYs •ADMDC"> 

<OPTION>  #SERVICE# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs" SERVICE "> 

<opt ion>#CHOICE# 

</DBOUTPUT> 

</seleot> 

</td></tr> 

<tr><td><font  sizes3>Admission  Reas on</f ont ></td> 

<td><font  sizesBxselect  names "ADREASON"> 

<DBOUTPUT  QUERYs "ADMDC"> 

<OPTION>  #ADREASON# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs " Reason " > 

<option>#CHOICE# 

</DBOUTPUT> 

</select></font></td><td><font  sizes3>Service  Att  :</ font x/tdxtdxf ont 
sizes5> 

<select  names "ATTENDIN"  sizesl> 

<DBOUTPUT  QUERYs "ADMDC"> 

<OPTION>  iSVCATT# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs" ATTENDIN "> 

<option>#CHOICE# 

</DBOUTPUT> 

</selectx/fontx/tdx/tr> 

<trxtdxfont  sizes3>Travima</fontx/td> 

<DBIF  #ADMDC. TRAUMA#  IS  NOT  "Y"> 

<tdxINPUT  TYPEs"RADIO“  NAMEs"TRAUMA"  VALUEs"Y">Yes<INPUT 
TYPES "RADIO"  NAMES "TRAUMA"  VALUEs"N“  CHECKED>No</td> 

<DBELSE> 
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<td><INPUT  TYPE= 'RADIO'  NAME="TRAUMA'  VALUEs'Y'  CHECKED>Yes<INPUT 
TYPE=' RADIO'  NAME='TRADMA'  VALUE='N*>No</td> 

</DBIF> 

<td> 

DNR;</td><td><select  naine='CODESTATUS"  size=l> 

<DBOUTPUT  QUERY="DNR2"> 

<OPTION>#DNR# 

</DBOUTPUT> 

<DBOUTPUT  QUERY= " DNR *  > 

<option>#CHOICE# 

</DBOUTPUT> 

</select></td> 

</tr> 

</table> 

<input  type  =  'hidden'  name  =  screen  value  =  "addemol“> 

< input  type  =  'hidden'  Name  =  KNUMBER  value  = 

' <DBOUTPUT>#ur 1 . KNUMBER# < /DBOUTPUT> “ > 

</form> 

</body> 

</html> 
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<1 - 

<  1  — 

<1  — 

The  ICUBase  Discharge  Screen 

t  1  1  1  1 

1  1  1  1  1 

V  V  V  V  V  ' 

The  discharge  screen  is  provided  for  state  3  of  the 
appication  where  users  can  discharge  a  patient  from 
the  system.  The  discharge  screen  uses  the  addischarge 
sub-form  processor  to  process  the  data  collected. 

^ :  -- 
<  1  — 

Written  By  Joe  Mirrow 

1  t  1  1  1 

1  1  1  I  t 

V  V  V  V  V 

filename :  discharge .dbm 

<!DOCTyPE  HTML  PUBLIC  •-//IETF//DTD  HTML//EN“> 
<html> 


■ — > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 


<head> 

<title>Discharge  Screen</title> 

</head> 

<DBQUERY  NAME=* PATIENT*  DATASOURCE= “ ICUBase " 

SQL  =  ‘SELECT  LNAME.FNAME  FROM  PATIENT  WHERE  UNITNUM= ' #url .UNITNUM# ' "> 

<DBQUERY  NAME=*ADMDAT*  DATASOURCE  =  "ICUBASE" 

SQL  =  "SELECT  H_ADMDAT  from  ADMDC  where  KNUMBER=#url .KNUMBER#"> 

<DBQUERY  NAME="DISPOSIT"  DATASOURCE=* ICUBase" 

SQL  =  "SELECT  DESCR  FROM  POPUP  WHERE  FIELD='DISPOSIT' "> 

<DBQUERY  NAME="ASA*  DATASOURCE=* ICUBase" 

SQL  =  "SELECT  DESCR  FROM  POPUP  WHERE  FIELD= ' ASA_CLASS ' " > 

<DBQUERY  Name=*CheckActive‘  DATASOURCE=" ICUBase* 

SQL  =  "select  total=count (*)  from  MASTERPROBLEMS  where 
KNUMBER=#KNUMBER# 

and  ACTIVE='Y'  and  ADMDIS='A'*> 

<DBQUERY  Name="CheckInactive*  DATASOURCE= " ICUBase “ 

SQL  =  "select  total=count (*)  from  MASTERPROBLEMS  where 
KNUMBER=#KNUMBER# 

and  ACTIVE='Y'  and  ADMDIS=null"> 

<DBQUERY  Names "CheckProcs"  DATASOURCE=" ICUBase" 

SQL  =  "select  total=count (*)  from  PROCS  where  KNUMBER=#KNUMBER#  and 
UNITNUMs ' iunitnum# ' " > 


<SCRIPT> 

function  editproblem (codenumber, problemnumber) { 

newlocation  =  "/scripts/dbml.exe?template=icubase/problem2.dbm&:KNUMBER=“ 
+  parent.GetCookie{"KNUMBER")  + 

"&todaydat="  +  parent.GetCookie{"TODAYDAT" )  + 
“&unitnum="  +  parent .GetCookie { "UNITNUM" )  + 

"tdaykeys*  +  parent .GetCookie { “DAYKEY" )  + 
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&probnuin="  +  problemnumber  +  "idcodes*  +  codenumber  + 


■&problem=* ; 

//alert {• codenumber =  •  +  codenumber  +  “and  problemnumber =  “  + 
problemnumber) ; 

parent. right. location  =  newlocation; 

} 

</SCRIPT> 


<body  bgcolor=#ffff ff> 

<form  action  =  /scripts/dbml.exe?template=icubase/admit .dbm 
methods “ POST  *  > 

<table  bordersl  width=100%><TR><TD  width=50%> 

<DBIF  #checkActive. total#  is  NOT  “0"> 

<DBQUERY  Names “printactive“  DATASOURCE  s  "ICUBASE“ 

SQLs  “SELECT  KNUMBER , UNITNUM ,  PATIENTPROBNUMBER,  ICD9C0DE, 
LastUpdated,  Descr,  ACTIVE,  OnsetDate,  EndDate 

FROM  MASTERPROBLEMS  WHERE  { ( (MASTERPROBLEMS .UNITNUM) = ' #UNITNUM# ' )  AND 
( (MASTERPROBLEMS . ACTIVE ) = ' Y ' ) ) “ > 

<h3>Admission  Problem  List</h3> 


<TABLE  CELLPADDINGsO  CELLSPACINGsO  WIDTH=100%  BORDERsO><tr> 
<td  width=10%></td> 

<TD  widths60%>Problem</TD> 

<TD  widthslO%>Onset  Date</TD> 

<TD  widthslO%>Last  Updated 
</TD> 


</tr> 

<DBOUTPUT  QUERY=“pr intact ive“> 

<TR> 

<td  width=10%><INPUT  TYPE=“Button“  values“Edit“ 
onClick=“editproblem( '#ICD9CODE#' , ' tPATIENTPROBNUMBER# ' ) “></td> 
<TD  width=60%>  #DESCR#</TD> 

<TD  widthslO%>  tDateFormat (ONSETDATE) #</TD> 

<TD  widthslO%>  tDateFormat (LastUpdated) #</TD> 


</TR> 

</DBOUTPUT> 

</TABLE> 

<DBELSE> 

<h3>No  Admission  Problem  List</h3> 

</DBIF></TD> 

<TD  WIDTH=50%> 

<DBIF  tCheckInActive. total#  is  NOT  “0“> 

<DBQUERY  Names “ print inactive“  DATASOURCE  s  “ICUBASE” 

SQLs  “SELECT  KNUMBER , UNITNUM ,  PATIENTPROBNUMBER,  ICD9CODE, 
LastUpdated,  Descr,  ACTIVE,  OnsetDate,  EndDate 

FROM  MASTERPROBLEMS  WHERE  ( ( (MASTERPROBLEMS .UNITNUM) s ' tUNITNUM# ' )  AND 
(  (MASTERPROBLEMS . ACTIVE ) s ' N ' ) ) “ > 


<h3>Discharge  Problem  List</h3> 
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<TABLE  CELLPADDING=0  CELLSPACING=0  WIDTH=100%  BORDER=0><tr> 
<td  width=10%></td> 

<TD  width=60%>Problem</TD> 

<TD  width=10%>End  Date</TD> 

<TD  width=10%>Last  Updated</TD> 

</tr> 

<DBOUTPUT  QUERY="printinactive“> 

<TR> 

<td  width=10%><INPUT  TYPE="Button“  VALUE="Edit" 
onClick=*editproblein{'#ICD9C0DE#' ,  '#patientprobnumber#'  )  ••></td> 
<TD  width=60%>#DESCR#</TD> 

<TD  width=10%>  #DateFormat(ENDDate)#</TD> 

<TD  width=10%>  #DateFonnat (LastUpdated) #</TD> 

</TR> 

</DBOUTPUT> 

</TABLE> 

<DBELSE> 

<h3>No  Discharge  Problems</h3> 

</DBIF></TD></TR> 


<tr><td  width=50%> 

<DBIF  tCheckprocs .total#  is  NOT  •0“> 

<DBQUERY  Names * pr intact ive2"  DATASOURCE  =  “ICUBASE" 

SQL=  ‘‘SELECT  *  from  PROCS  WHERE  KNUMBER=#KNUMBER#  and 
UNITNUMs '  tunitniim# '  ■  > 

<h3>Procedure  List</h3> 


<TABLE  CELLPADDINGsO  CELLSPACING=0  WIDTH=60%  BORDER=0><tr> 
<TD  width=50%>Procedure</TD> 

<TD  width=10%>Reference</TD> 

<TD  width=20%  align=right>Procedure  Date</TD> 

</TD> 


</tr> 

<DBOUTPUT  QUERY= “ pr intact ive2 “ > 

<TR> 

<TD  width=50%>#PNAME#</TD> 

<'rD  width  =10%><a 

href  = " http : / / ovid . med . unc . edu : 8  8  88 / ovidweb/ ovidweb . cgi *  >Ref erence< / a> 
</TD> 

<TD  width=20%  align=right>  #DateFormat (PROCDATE) #</TD> 

</TR> 

</DBOUTPUT> 

</table> 

<DBELSE> 

<h3>No  Procedures  Documented</h3> 

</DBIF> 


</td> 

<td  width=50%><table  width=100%> 

<tr><td  align=right  width=33%>  </td><td  width=33%>  </td></tr> 
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<tr><td  align=right  width=33%>  ICU  Outcome  </td><td  width=33%>  <input 
type=radio  name=* OUTCOME*  value=*A*  CHECKED>AlivG  <input  type=radio 
name=" OUTCOME"  value="D">  Dead  </td></tr> 

<tr><td  align=right  width=33%>  ICU  Disposition  </td><td  width=33%> 
<select  names •DISPOSIT*> 

<DBODTPUT  QUERY="DISPOSIT"> 

<option>#DESCR# 

</DBOUTPDT> 

</select></td></tr> 

<tr><td  align=right  width=33%>  ICU  D/C  Date  </td><td  width=33%>  <input 
typestext  VALUE="<DBOUTPUT>#Date format (url . todaydat ) #</DBOUTPUT>"  size=8 
maxlength=8  name="DCDATE“>  </td></tr> 

<tr><td  align=right>  ICU  days  </td><td>  <input  type=text  size=4 
maxlength=4  name="NICUDAyS">  </td></tr> 

</table> 

</td></tr> 

<tr><td  width=50%><table  width=100%> 

<tr><td  width=50%>  <td  align=center  width=50%>  ASA  Class  </td></tr> 
<tr><td  width=50%>  <td  width=50%>  <select  narae="ASA"> 

<DBOUTPUT  QUERY=‘ASA"> 

<option>#DESCR# 

</DBOUTPUT> 

</select>  </td></tr> 

</table> 

</td><td  width=50%><table  width=100%> 

<tr><td  align=center  width=100%>  Hospital  Outcome  </td></tr> 

<tr><td  width=100%>  <input  type=radio  name="H_OUTCOME"  value="A“ 
CHECKED>Alive  <input  type=radio  name="H_OUTCOME"  value="D">  Dead  <input 
type=radio  name=*H_OUTCOME"  values "U“>  unknown  </td></tr> 

</table> 

</td></tr> 

<tr><td  widths50%><table  widthsl00%> 

<tr><td  widths50%>  Name;  <DBOUTPUT>#patient .LNAME# , 

#patient.FNAME#</DBOUTPUT>  </td><td  width=50%>  Admit  Date:  06/06/96 
</td></tr> 

<tr><td  widths50%>  ID#:  <DBOUTPUT>#url .UNITNUM#</DBOUTPUT>  </td><td 
widths50%>  </td></tr> 

</table> 

</td><td  widths50%><table  widthsl00%> 

<tr><td  widths50%>  Hospital  D/C  Date  </td><td  widths50%>  <input 
typestext  sizes8  maxlengthsS  names ••h_DCDATE">  </td></tr> 

<tr><td  widths50%>  Hospital  Days  </td><td  width=50%><input  typestext 
sizes4  maxlengths4  names*NHOSPDAYS"></td></tr> 

</table> 

</td></tr> 

</table> 

<input  types "hidden"  name=KNUMBER 

values " <DBOUTPUT>#url .KNUMBER#</DBOUTPUT>" > 

<input  types "hidden"  namesTODAYDAT 

values " <DBOUTPDT>#url . TODAYDAT#</DBOUTPUT> " > 

<input  types "hidden"  namesUNITNUM 

values " <DBOUTPUT>#url .UNITNUM#</DBOUTPUT> " > 

< input  types "hidden"  name=DAYKEY 

values " <DBOUTPUT>#url . DAYKEY#< /DBOUTPUT> " > 

<input  types"hidden"  namesscreen  values"addischarge"> 

</form> 

</body> 

</html> 


86 


- - 

<i  — 

<  1  — 

<j«-  The  ICUBase  History  and  Physical  Exam  Screen 

<  I  — 

<i —  The  history  and  physical  exam  screen  is  provided  for 

<1 —  subjective  assessment  of  the  patient  on  a  daily  basis. 

<1 —  The  data  input  into  this  screen  is  defaulted  to  any 
<1 —  text  entered  on  the  current  day  for  the  particular 

<1 —  patient.  If  no  text  is  entered,  then  they  are  blank. 

<1 —  The  Glasgow  coma  score  is  calculated  from  numeric  data 
<! —  entered  on  this  page. 

<  I  — 

<1 —  Written  By  Joe  Mirrow 

<  I  — 

<i —  filename:  historyl.dbm 


<‘  — 

<1 - 

<ID0CTYPE  HTML  PUBLIC 


“-//IETF/ /DTD  HTML//EN“> 


—  > 
— > 
— > 
—  > 
— > 
— > 
— > 
—  > 
—  > 
—  > 
—  > 
—  > 
—  > 
— > 
— > 
— > 
— > 
—  > 
— > 


<html> 


<head> 

<title>Patient  History  Screen</title> 
</head> 


<dbQUERY  Name=“ patient"  DATASOURCE=" ICUBase" 

SQL  =  "Select  patient . f name,  patient .Iname,  patient .uni tnum, 
pat  i  ent .  age ,  admdc .  kniomber 

from  patient , admdc  WHERE  admdc . knumber  =  #url .KNUMBER# 
and  patient.unitnum  =  admdc. unitnum"></dbquery> 


<dbquery  Name="daily"  Datasource  =  "ICUBase" 

SQL  =  "select  daily .physexam,  daily .subjective,  daily .meds, 
daily .gcs eye, 

daily .gcsmot or ,  daily .gcs verbal  from  daily, admdc  where 
daily . knumber =admdc . knumber 

and  admdc . knumber  =  #url .KNUMBER#  and  daily .todaydat  = 
' #url .todaydat# ' "></dbguery> 

<body  bgcolor=#ffff f f> 


<DBOUTPUT> 

<table  width  =  100%><tr><td  width  =33%>Patient  Name:  #patient .FNAME# 
#patient .LNAME#</td><td  width  =33%>Age:  #patient . AGE#</td><td  width  = 
33%>ID  Number:  #patient .UNITNUM#</td></tr> 

</table> 

<form  action  =  /scripts/dbml.exe?template=icubase/admit .dbm 
method="POST"> 

<table  width=100%> 

<tr><td  width=8%><font  size=3>Subjective:</f ontx/tdxtd  width=30xf ont 
size=5xtextarea  name=" SUBJECTIVE"  rows=2  cols=60  hscroll="of f " 
wrap>#dai  ly .  SUB  JECTIVE#<  / 1  extar  eax  /  f  ont  ><  / 1  dx  / 1  r> 
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<tr><td  width=8%><f ont  size=3>Physical  Exain:</font></td><td><font 
sizesBxtextarea  naine="PHYSEXAM-  rows=2  cols=60  hscroll="off " 
wrap>#daily . PHYSEXAM#</textarea></f ont></td></tr> 

</table> 

<teJ3le  width=100%> 

<tr><td  valign=bottoiii  width=20%><font  sizs=3>Glascfow  Coma 
Scale</font></td><td  width=20%><font  size=3>Eye:</font><font  size=5> 
<input  type=t©xt  size=2  maxlength=l  name=“GCSEYE" 
values  tdaily .  GCSEYE# "  >< /  f  ontx /tdxtd  width=2 0%xf ont 

size=3>Verbal:</fontxfont  size=5>  <input  type=text  size=2  maxlength=l 
names "GCSVERBAL"  values" tdaily .GCSVERB^#“x/fontx/tdxtd 
width=20%xfont  sizes3>Motor;  </fontxfont  sizesSxir^ut  typestext 
sizes2  meixlengthsl  names  "GCSMOTOR" 

values" tdaily. GCSMO'rOR#“x/fontx/tdxtd  widths20%x/tdx/tr> 

</table> 

<table  width=100%> 

<trxtd  widths8%xf ont  sizes3>Medications:</fontx/tdxtd 
widths50%xfont  sizes3xtextarea  names'MEDS"  rowss2  colssSO 
hscrolls*off "  wrap>tdaily.MEDSt</textareax/fontx/tdx/tr> 

<  /  tablex /DBOUTPUT> 

<input  types "hidden"  namesKNUMBER 

values " <DBOUTPUT>tur 1 . KNUMBERt< /DBOUTPUT> " > 

<input  types "hidden"  name=TODAYDAT 

values " <DBOUTPUT>turl . todaydatt</DBOUTPUT> " > 

<input  types "hidden"  namesUNITNUM 

values " <DBOUTPUT>turl . unitnumt< /DBOUTPUT> " > 

< input  types "hidden"  name=DAYKEY 

values " <DBOUTPUT>tur 1 . daykey t< /DBOUTPUT> " > 

<input  types"hidden"  namesscreen  values «adhi story" 

</form> 

</body> 

</html> 
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<  I  ^ 

<i  - 
<1- 
<1-- 
<!- 
<1- 
<i- 
<1  - 
<1- 

<  I  « 

<i- 
<1- 
<1- 
<1- 
<i « 

<1- 


The  ICUBase  Main  Screen 

The  ICUBase  main  screen  consists  of  two  frames  and 
several  Javascript (TM)  functions  described  in  the 
accompanying  documentation.  The  left  frame  is  the 
menu  system  which  uses  the  "cookie"  functions  below 
to  store  navigation  information  for  the  application. 
The  right  screen  contains  data  input  forms  for  text 
processing.  This  document  is  known  as  Parent. 

Written  By  Joe  Mirrow 

f i 1 ename :  i cubas  e . html 


— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
--> 
— > 


<html> 

<title>ICUBase</title> 

<1— <META  HTTP •EQUIV=" Pragma"  CONTENT="no-cache">-~> 

<script> 

//  Public  domain  cookie  functions.  They  come  from  Bill  Dortch  of 

//  hidaho  Design. 

function  getCookieVal  (offset) 


var  endstr  =  document . cookie . indexOf  ( " ; " ,  offset ) ; 

if  (endstr  ==  -1) 

endstr  =  document .cookie. length; 

return  unescape (document . cookie . substring (offset ,  endstr ) ) ; 


} 


//  -  Get  Value  of  Cookie  -  -  «  -  - 

function  GetCookie  (name) 

{ 

var  arg  =  name  +  "="; 

var  alen  =  arg. length ; 

var  clen  =  document .cookie. length; 

var  i  =  0; 

while  (i  <  clen) 

{ 

var  j  =  i  +  alen; 

if  (document.cookie.substring(i,  j)  ==  arg) 
return  getCookieVal  (j); 
i  =  document .cookie . indexOf ( "  ",  i)  +1; 
if  (i  ==  0)  break; 

} 

return  null; 

} 


//  Set  Value  of  Cookie  - 

function  SetCookie  (name,  value) 

{ 

var  argv  =  SetCookie. arguments; 

var  argc  =  Set Cookie. arguments. length; 
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var  expires  =  (argc  >  2)  ?  argvt2]  :  null; 
var  path  =  (argc  >  3)  ?  argv[3]  ;  null; 

var  domain  =  (argc  >4)  ?  argv[4]  :  null; 

Veu:  secure  =  (argc  >5)  ?  argvtS]  :  false; 

document . cookie  =  name  +  “=“  +  escape  (value)  + 

((ejqjires  ==  null)  ?  "■  :  C;  expires="  + 
expires.toGMTString 0 ) )  + 

((path  ==  null)  ?  •’  ;  (";  path="  +  path))  + 

((domain  ==  null)  ?  "■  :  (“;  domain="  +  domain))  + 

((secure  ==  true)  ?  ■;  secure*  :  *"); 

) 

//  function  parser  is  a  generic  parse  routine  taken  from 
//  the  JavaScript  SourceBook,  Gordon  McComb  p.  543. 
function  parser  (inString,  sep) 

{ 

var  numSeps  =  1; 

var  parse  =  new  Object (); 

var  count  =1; 

var  parsestring  =  inString.toStringO ; 

for  (count  =  1;  count  <  parseString. length;  count++) 

{ 

if  (inString.charAt (count)  ==  sep) 
numSeps++; 

} 

var  start  =  0;  count  =  1;  var  parseMark  =  0;  var  loopCtrl  =  1; 

while  (loopCtrl  ==  1) 

{ 

parseMark  =  parseString. indexOf (sep,  parseMark); 
testMark  =  parseMark; 

if  (  (testMark  ==  0)  II  (testMark  ==  -1)) 

{ 

parse [count]  =  parseString. substring (start, 
parseString. length) ; 

loopCtrl  =  0; 
break; 

) 

parse[count]  =  parseString. substring (start,  parseMark); 
start  =  parseMark  +  1; 
parseMark  =  start; 
count ++; 

} 

} 


function  opendcode ( ) { 
windcode  = 

window. open ( "http; / /chimera.med.unc . edu/scripts/dbml .exe?template=icubas 
e/dcode.htm“ , "windcodel* ) ; 

if  (windcode  !=  null)  { 

if  (windcode. creator  ==  null)  {  //  the  creator  stuff  is  here  so, 

this  work 
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2.x 


//  with  older  netscape  browsers,  ie 


windcode . creator  =  self; 

windcode. opener  =  self;  //  what  you  really  use  on  the 

other  page. 

) 

) 

} 

function  opendcodesecirch  (dcodetext)  { 
var  wintext  = 

"http : //chimera. med .unc . edu/scripts/dbml . exe?template=icubase/dcodesearc 
h.htm&problem="  +  escape (dcodetext)  + 

*&KNUMBER=“  +  parent.GetCookie("KNUMBER" )  +  ■&todaydat=" 

+  parent. GetCookie(*TODAYDAT")  + 

"&unitnum="  +  parent .GetCookie ( "UNITNUM" )  +  "&daykey=" 

+  parent . GetCookie { "DAYKEY" ) ; 

windcode  =  window.open (wintext, "windcodel" ) ; 

if  (windcode  !=  null)  { 

if  (windcode. creator  ==  null)  {  //  the  creator  stuff  is  here  so, 

this  work 

//  with  older  netscape  browsers,  ie 

2.x 

windcode. creator  =  self; 

windcode . opener  =  self;  //  what  you  really  use  on  the 

other  page. 

} 

} 

} 

function  openpcode ( ) { 
windcode  = 

window . open (■ http :/ / chimera . med .unc.edu/scripts/ dbml . exe  ? t emp lat e= i cubas 
e/pcode.htm" , "windcodel* ) ; 

if  (windcode  !=  null)  { 

if  (windcode. creator  ==  null)  {  //  the  creator  stuff  is  here  so, 

this  work 

//  with  older  netscape  browsers,  ie 

2  .X 

windcode . creator  =  self; 

windcode. opener  =  self;  //  what  you  really  use  on  the 

other  page. 

} 

) 

} 


function  advancef ramel (dcode) { 

parent .right .advanceframe (dcode) ; 

} 

function  DeleteNavs ( ) { 
for  (i=l;  i<6;  i++) { 

ButtonText  =  ' button ['  +  i  +  ' ] ' ; 
NavText  =  'nav['  +  i  +  ']'; 

SetCookie (ButtonText ,  false) ; 
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SetCookie (NavText ,  false ) ; 

) 

} 


function  GetNumber ( ) { 
for  (i=l;i<6;i++) { 

ButtonText  =  ' button ['  +  i  + 

Button  =  parent. GetCookie (ButtonText) ; 

if  (Button  ==  “true“){ 

parent . SetCookie ( “ number ",  i ) ; 

} 

} 

) 

function  resetbutton ( ) { 
for  (i=l;  i<6;  i++) { 

ButtonText  =  ■ button [“  +  i  + 
parent. SetCookie (ButtonText,  false) ; 

} 

} 


function  resetnav(){ 
for  (i=l;  i<6;  i++) { 

NavText  =  "navC*  +  i  + 
parent . SetCookie (NavText ,  false) ; 
} 

} 


screen  =  new  Array (6); 

screen [1] =“demo4 .dbm“ ; 
screen[2i s'historyl .dbm" ; 
screen  [3  ]  =*vitalsl.dbm'' ; 
screen [ 4] ="procedurel.dbm“ ; 
screen [5] =“probleml .dbm“ ; 
screen [ 6 ] = "welcome . dbm" ; 


mousetext  =  new  Array (6) ; 
mousetext[l]  =  'Enter  Patient 
mousetext [2]  =  'Enter  Patient 
mousetext [3]  =  'Enter  Patient 
mousetext [4]  =  'Enter  Patient 
mousetext [5]  =  'Enter  Patient 
mousetext [6]  =  'Quit' 


Demographics ' 

History  and  Assessment' 
Vital  Signs' 

Procedures ' 

Problem  List' 


function  checkDate(){ 
month  =  " " ; 
day  =  " " ; 
year  =  " " ; 

datestring  =  '1/30/94'; 
slen  =  datestring,  lengthi- 

first  =  (datestring.indexOf ('/')  !=  -1)  ?  datestring. indexOf ('/' )  +  1 

0; 

second  =  (datestring. lastIndexOf ('/' )  !=  -1)  ? 

datestring. lastIndexOf ('/' )  +1  :  8; 

for  (i=0;  i<first  -1;  i+-h)  { 

month  =  month  +  datestring.charAt (i) ; 

} 

for  (i=first;  i<second  -l;i++){ 
day  =  day  +  datestring.charAt (i); 
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) 

for  (i=second;  i<datestring. length;  i++){ 
year  =  year  +  datestring.charAt (i) ; 

islegal  =  (parselnt (month)  <13  &&  parseint (month)  >  0  &&  parseint (day)>0 
&&  parseint (day) <3 2)  ?  true:  false; 

islegal  =  (islegal  &&  parseint (month) •!=  1  &&  parseint (month)  !=  3  && 
parseint  (month)  !=  5  &&  parseint  (month)  !=  7  &&  parseint  (month)  l  =  8  S=& 
parseint (month) !=  10  &&  parseint (month) !=  12  &&  parseint (day) <31 )  ? 
true:  false; 

islegal2  =  (islegal  &&  parseint (month) ==2  &&  parseint (day)  <  30)  ?  true 
:  false; 

//alert (islegal)  ; 

//alert (islegal2) ; 

isLeap  =  (parseint (year) %4==0) ?  true:  false; 

islegal2  =  (islegal2  &&  parseint (month) ==2  &&  JisLeap  &&  parseint (day)  < 
29)  ?  true:  false; 

islegal  =  (islegal  II  islegal2) ?true: false; 
isDate  =  (first  !=  2  &&  first  !=  3)  ?  false:  true; 

isDate2  =  (second  !=  4  &&  second  !=  5  &&  second  !=  6)  ?  false:  true; 
isDate  =  (isDate  &&  isDate2  &&  second-f irst<4  &&  Date. parse (datestring) 
!=0  &&  islegal)  ?  true:  false; 
titles  =  Date.parse (datestring) ; 
alert (isDate) ; } 

</script> 

<frameset  C0LS='75,*'  > 

<frame 

src= ' http : / /chimera .med . unc . edu/ scripts /dbml . exe?template=icubase/ select 
.dbm'  names' left'  MARGINWIDTH=0  MARGINHEIGHT=0  scrollings 'no'  NORESIZE 
borders o> 

<frame 

srcs 'http : / /chimera .med. unc .edu /scripts /dbml .exe?templatesicubase/welcom 
e.dbm'  names 'right'  MARGINWIDTHsO  MARGINHEIGHTsO  borders0> 

</frameset> 

<body  bgcolorsiffff ff> 

<hl><A 

href s  ■•http : / /chimera. med .unc . edu/scripts/dbml . exe?templatesicubase/icuba 
se.html*  targets* icUBase">Click  here  to  re-start  ICUBase</a> 

</body> 


</html> 


A  A  A  A 

1  1  i  1 

1  1  1  1 

1 

1 

1 

The  ICUBase  Lines  Screen 

- > 

- > 

- > 

<!-- 

<1-- 

The  liness  screen  is  not  used 

- > 

- > 

<1  — 

in  the  ICUBase  project  because 

- > 

<i  — 

they  are  now  included  with  the  procedures  list 

- > 

<1  — 

<!  — 

Written  By  Joe  Mirrow 

- > 

- > 

<*-- 

filename;  lines. dbm 

- > 

- > 

AAA 

1  1  I 

1  1  1 

1 

1 

1 

- > 

- > 

; - 

<!DOCTYPE  HTML  PUBLIC  ■-//IETF//DTD  HTML//EN’'> 


<htinl> 

<head> 

<title>Daily  Lines  and  Procedures  Screen</title> 

</head> 

<DBQUERy  NAME= "patient"  DATASOURCE="ICUBase“ 

SQL  =  "SELECT  FNAME,LNAME,UNITNUM, ADMDATE,  H_ADMDAT  FROM  ADMDC  WHERE 
(KNOMBER=#url.id#) ;  "> 

<DBQUERY  Naine="FINDLines"  DATASOURCE="ICUBase" 

SQL  =  "SELECT  *  FROM  DAILY  WHERE  KNUMBER=#url . id#"> 

<body  bgcolor=#ff f f f f> 

<fonn  action  =  /scripts/dbinl.exe?template=icubase/adinit.dbin 
methods" POST “> 

<teible  width=100%> 

<DBOUTPUT  QUERYs " patient " > 

<tr><td  width=25%>Patient :  #FNAME#  #LNAME#</td><td  width=25%>Unit  ## : 
#UNITNUM#</td><td  width=25%>Admitted  to  Hospital; 

#DateFormat (H_ADMDAT)#</td><td  width=25%>ICU  Date: 

#DateForroat (ADMDATE) #</td></tr> 

<  /DBOUTPUTx  /  tabl  e> 

<teible  border=l  width=100%> 

<tr><td  width=50%><strong>Lines  in  Place</strong></td><td 
width=50%><strong>Procedures  Performed</strong></td></tr> 

<tr><td  align=center  width=50%><table  width=100%> 

<DBIF  #FINDLines. ALINE#  IS  NOT  "Y"> 

<tr><td  align=right  width=25%>Arterial</td><td  align=center 
width=50%><input  type=checkbox  name="ALINE"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=25%>Arterial</td><td  align=center 
width=50%>< input  type=checkbox  name= "ALINE"  CHECKED></td></tr> 

</DBIF> 

<DBIF  #FINDLines . CVPLINE#  IS  NOT  "Y“> 

<tr><td  align=right  width=50%>CVP</td><td  align=center 
width=25%><input  type=chec)d30x  name= " CVPLINE "  ></td></tr> 

<DBELSC> 

<tr><td  align=right  width=50%>CVP</td><td  align=center 
width=25%><input  type=checkbox  name= " CVPLINE "  CHECKED></td></tr> 
</DBIF> 
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<DBIF  #FINDLines.LUMEN3#  IS  NOT  ■Y*> 

<tr><td  align=right  width=50%>Triple  Luinen</td><td  align=center 
width=25%><input  type=checkbox  name= "LUMENS "  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>Triple  Lvunen</td><td  align=center 
width=25%><input  type=checkbox  naine="LUMEN3 "  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDLines.SWANGANZ#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>Swan-Ganz</td><td  align=center 
width=25%><input  type=checkbox  naine="SWANGANZ"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>Swan-Ganz</td><td  align=center 
width=25%><input  type=checkbox  naine="SWANGANZ"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDLines.ICPMONIT#  IS  NOT  •Y"> 

<tr><td  align=right  width=50%>ICP  Monitor</td><td  align=center 
width=25%><input  type=checkbox  naine="ICPMONIT"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>ICP  Monitor</td><td  align=center 
width=25%><input  type=checkbox  name=“ICPMONIT"  CHECKED></td></tr> 
</DBIF> 

<DBIF  iFINDLines.CHESTTUBE#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>Chest  Tube</td><td  align=center 
width=25%><input  type=chec]cbox  naine="CHESTTUBE"  ></td></tr> 
<DBELSE> 

<tr><td  align=right  width=50%>Chest  Tube</td><td  align=center 
width=25%><input  type=checkbox  naine=“CHESTTUBE"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDLines. EPIDURAL#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>Epidural</td><td  align=center 
width=25%><input  type=checkbox  name="EPIDURAL"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>Epidural</td><td  align=center 
width=25%><input  type=checkbox  naine=* EPIDURAL"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDLines.ETT_TRACH#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>EtTube/Trach</td><td  align=center 
width=25%><input  type=checkbox  name="ETT_TRACH"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  widths 5 0%>EtTube/Trach</td><td  align=center 
width=25%><input  type=checkbox  names "ETT_TRACH"  CHECKED></td></tr> 
</DBIF> 

</table> 

</td><td  alignscenter  widths50%><table  widthslOO%> 

<DBIF  #FINDLines . PROALINE#  IS  NOT  "Y"> 

<tr><td  alignsright  widths50%>Arterial  Line</td><td  alignscenter 
widths50%><input  typescheckbox  names "PROALINE"  ></td></tr> 

<DBELSE> 

<tr><td  alignsright  widths50%>Arterial  Line</td><td  alignscenter 
widths50%><input  typescheckbox  names "PROALINE"  CHECKED></td></tr> 
</DBIF> 
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<DBIF  iPINDLines . PROCVP#  IS  NOT  "¥"> 

<tr><td  align=right  width=50%>CVP  Line</td><td  align=center 
width=50%><input  type=checkbox  naine= ■ PROCVP "  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>CVP  Line</td><td  align=center 
width=50%><input  type=checkbox  name= ■ PROCVP “  CHECKED></td></tr> 

</DBIF> 

<DBIF  #FINDLines.PR03L0MN#  IS  NOT  "¥"> 

<tr><td  align=right  width=50%>Triple  Lumen</td><td  align=center 
width=50%><input  type=checkbox  names’ PR03LUMN"></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>Triple  Lumen</td><td  align=center 
width=50%><input  type=checkbox  name="PR03LUMN’  CHECKED></td></tr> 
</DBIF> 

<DBIF  iFINDLines. PROSWAN#  IS  NOT  "Y“> 

<tr><td  align=right  width=50%>Swan-Ganz</td><td  align=center 
width=50%><input  type=checkbox  name=’ PROSWAN’  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>Swan-Ganz</td><td  align=center 
width=50%><input  type=checkbox  name=* PROSWAN’  CHECKED></td></tr> 
</DBIF> 

<DBIF  iPINDLines. PROICPMO#  IS  NOT  "Y’> 

<tr><td  align=right  width=50%>ICP  Monitor</td><td  align=center 
width=50%><input  type=checkbox  name=’ PROICPMO*  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>ICP  Monitor</td><td  align=center 
width=50%><input  type=checkbox  names’ PROICPMO’  CHECKED></td></tr> 
</DBIF> 

<DBIF  iFINDLines. PROCHESTTU#  IS  NOT  ’Y’> 

<tr><td  alignsright  widths50%>Chest  Tube</td><td  alignscenterxinput 
typescheckbox  names “PROCHESTTU"  ></td></tr> 

<DBELSE> 

<tr><td  alignsright  widths 5 0%>Chest  Tube</td><td  alignscenterxinput 
typescheckbox  names ’PROCHESTTU’  CHECKEDx/tdx/tr> 

</DBIF> 

<DBIF  iFINDLines. PROEPIDURA#  IS  NOT  ’Y’> 

<trxtd  alignsright  widths50%>Epidural</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names ’PROEPIDURA"  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  widths50%>Epidural</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names  "PROEPIDURA’  CHECKEDx/tdx/tr> 
</DBIF> 

<DBIF  iFINDLines . PROINTUBAT#  IS  NOT  ’Y’> 

<trxtd  alignsright  widths50%>Intubation</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names  "PROINTUBAT’  x/tdx/tr> 

<DBELSE> 

<trxtd  alignsright  widths50%>Intubation</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names  “PROINTUBAT’  CHECKEDx/tdx/tr> 
</DBIF> 

<DBIF  iFINDLines. DIALYSIS#  IS  NOT  ’Y"> 

<trxtd  alignsright  widths50%>Dialysis</tdxtd  alignscenter 
widths50%xinput  typescheckbox  names"DIALYSIS’  x/tdx/tr> 

<DBELSE> 
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<tr><td  align=right  width=50%>Dialysis</td><td  align=center 
width=50%><input  type=checkbox  names "DIALYSIS"  CHECKED></td></tr> 
</DBIF> 

<DBIF  #FINDLines. ENDOSCOPY#  IS  NOT  "Y"> 

<tr><td  align=right  width=50%>Endoscopy</td><td  align=center 
width=50%><input  type=checkbox  name= "ENDOSCOPY"  ></td></tr> 

<DBELSE> 

<tr><td  align=right  width=50%>Endoscopy</td><td  align=center 
width=50%><input  type=checkbox  name=" ENDOSCOPY"  CHECKED></td></tr> 
</DBIF> 

</table> 

</td></tr> 

</table> 

<input  type=“hidden"  name=KNUMBER  value="<DBOUTPUT>#url . id#</DBOUTPUT>"> 
<input  type="hidden"  name=screen  values "adlines"></form> 

</body> 

</html> 
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<!  — 

<!  — 

<! —  The  ICUBase  Navigation  Screen 

<!  — 

<! —  The  ICUBase  navigation  screen  is  fairly  simple  to 
<!—  understand.  The  buttons  are  written  as  up,  down, 

<1 —  visited  (t)  or  not  (f)  depending  on  the  cookie  button 
<! —  states.  Each  button  is  processed  and  displayed. 

<! —  Once  a  user  clicks  on  a  new  screen,  the  form  on  the 
<1 —  right  is  submitted  and  the  nav  form  calls  itself  with 

<!—  the  new  data  and  waits  for  the  new  right  screen. 

<!  — 

<! —  Written  By  Joe  Mirrow 

<1  — 

<! —  filename:  nav.dbm 

<!  — 

<!  — 

- - 

<html> 

<title>Selection  of  Admission  or  Progress  Note</title> 
<script> 


— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
--> 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 


function  written () { 


count  =  (parent. GetCookie ("state")  ==  "2")  ?  2  :  1; 
if  (parent. GetCookie( "state")  ==  "3" ) {count=6} ; ; 

for  (iscount;  i<6;  i++) { 

ButtonText  =  ' button ['  +  i  + 

NavText  =  ' nav [ '  +  i  +  ' ] ' ; 

Button  =  parent.GetCookie (ButtonText) ; 

Nav  =  parent .GetCookie( NavText ) ; 
newmousetext  =  "'“  +  parent .mousetext [i]  + 


if  (Button==" false"  &&  Nav==" false" ) { 

document.write('<tr><td><A  HREF=" javascript :changeState( '  +  this.i  +')" 
onMouseOver= "parent .window. status='  +  newmousetext  +  return 
true;"><IMG  SRC="http://chimera. med.unc.edu/icubase/'  +  this.i  + 
'uf.gif"  BORDER=0></A></td></tr>' ) 

} 

else  if  (Button=="true"  &&  Nav=="false" ) { 

document.write( '<tr><td><A  HREF=" javascript :changeState( '  +  this.i  +')" 
onMouseOver= "parent .window. status='  +  newmousetext  +  return 
true;"><IMG  SRC="http: //chimera. med.unc .edu/icubase/ '  +  this.i  + 
'df.gif"  BORDER=0></A></td></tr>') 

} 

else  if  (Button==" false"  &&  Nav== " true “ ) { 

document .write ( '<tr><td><A  HREF=" javascript : changeState ( '  +  this . i  + ' ) " 
onMouseOver="parent .window. status='  +  newmousetext  +  ', -return 
true;"><IMG  SRC="http: //chimera. med.unc .edu/icubase/ '  +  this.i  + 
'ut.gif"  BORDER=0></A></td></tr>' ) 

} 

else  if  (Button==“true"  &&  Nav=="true" ) { 

docviment .write ( '<tr><td><A  HREF=" javascript : changeState { '  +  this . i  + ' ) " 
onMouseOvers  "parent  .window.  status='  -i-  newmousetext  +  return 
true;"><IMG  SRC="http: //chimera. med.unc .edu/icubase/ '  +  this.i  + 
'dt.gif"  BORDER=0></A></td></tr>' ) 

} 

} 
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nevmousetext  =  "Return  to  iCUBase  Start  Screen"; 
docvunent. write ( '<tr><td><A  HREF=*javascript;changeState(6) * 
onMouseOver= "parent .window. status='  +  newmousetext  +  '/return 
true ; • xIMG  SRC= "http : / / chimera . med . unc . edu/ icubase/done .gif" 
BORDER=0></A></td></tr>' ) 

) 


function  changeState(theState) { 
numValue=parseInt (theState, 10) ; 


if  (numValue  !=  6){ 
if  (nvunValue  ==  5){ 

parent . SetCookie ( "problemmove" ,  true) ; 

} 

if  (parent. GetCookie (" prevnumValue " )  ==  "5"){ 
parent . SetCookie ( "problemmove" ,  false) ; 

) 

if  (niamValue  ==  4){ 

parent . SetCookie ( "proceduremove" ,  true) ; 

} 

if  (parent. GetCookie ("prevnumValue")  ==  "4"){ 
parent . SetCookie ( "proceduremmove" ,  false) ; 

} 

//submit  the  form 

parent . right . document . forms [ 0 ] . submit ( ) ; 

//Check  to  see  where  you  came  from 

NavText  =  *nav["  +  parent .GetCookie ( 'prevnumValue' )  +  "]" 
parent . SetCookie (NavText , true) ; 

//Store  the  previous  button 

parent . SetCookie ( "prevnumValue " ,  numValue) ; 

//Call  the  reset  button  function  to  reset  all  the  buttons 
parent . resetbutton ( ) ; 

//NOW  make  your  button  the  active  button 
ButtonText  =  "button ["  +  numValue  +  "]"; 
parent . SetCookie (ButtonText ,  true) ; 
parent .  GetNimiber  ( )  ; 

//Then  call  this  form  again  to  rewrite  the  page 

parent . left . location="/scripts/dbml .exe?template=icubase/nav.dbm" ; 

} 

else  if  (numValue  ==  6)  { 
parent . SetCookie ( " state ",  0 ) ; 

//submit  the  form 

parent . right . document . forms [ 0 ] . submit ( ) ; 

parent . SetCookie ( “problemmove" ,  false) ; 

parent . resetbutton ( ) ; 

parent . resetnav ( ) ; 

parent . SetCookie ( "KNUMBER" ,  0) ; 


parent . left . location=" /scripts /dbml . exe?template=icubase/select .dbm" 

} 
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} 

</script> 


<script> 

<! —  Page  Script  — > 
var  i 

document .write ( '<body  bgcolor=#fff fff>' ) 

document .write { '<table  width=70  border-=0  marginwidth=0  marginheight=0>' ) 
written {) 

document .write { '</table> ' ) 
document .write ( ' </body> ' ) 

</script> 

</html> 
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<script> 

function  nextfraine{fraineniainber/  pointer,  endofc,  descr){ 
var  newlocation  = 

** /scripts /dbitil  .exe?teinplate=icubase/pcode.dbm&nextpoint="  + 
escape  (pointer )  +  "&frame=*'  +  framenumber  +  “&endofc=:"  +  endofc; 
var  secondlocation  = 

"  /  scripts  /dbml  .exe?template=icubase/pcode2  .dbin£:fraine="  +  framenumber ; 
frametext  =  '&nextpoint='  +  escape (pointer)  +  '&frame='  +  framenumber  + 
'£tendofc='  +  endofc 

parent . f  r ame [ f  ramenumber ]  =  f  r ame t  ext ; 
parent . frametext [ framenumber]  =  descr ; 
parent .frames [1] .location  =  newlocation; 
parent . frames [ 0] . location  =  secondlocation; 


} 

function  next frame2 (framenumber ,  pointer,  endofc,  full){ 
if  (endofc=="N" ) { 
endofc  =  "Y"; 

) 


if  (endofc  ==  “X-){ 

parent . cycleopener (pointer) ; 

parent. close  0 ; 

} 


var  newlocation  = 

“/scripts /dbml.  exe?template=icubase/pcode.dbm£cnextpoint='*  + 
escape  (pointer)  +  “&frame=“  +  framenumber  +  "Scendofc=“  +  endofc; 
var  secondlocation  = 

" /scripts /dbml .exe?template=icubase/pcode2 .dbmScframe=“  +  framenumber; 
frametext  =  "Stnextpoint='  +  escape  (pointer)  +  '&frame='  +  framenumber  + 
'&endofc='  +  endofc 

parent .frame [framenumber]  =  frametext; 
parent . frametext [ framenumber]  =  full ; 
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if  (endofc  !=  "X"){ 

parent. f rames [1] .location  =  newlocation; 
parent. frames [0] .location  =  secondlocation; 
} 


</script> 

<DBSET  #TEMPFRAME#  =  #url.frame#> 

<DBSET  #NEXTFRAME#  =  # Increment Value (TEMPFRAME) #> 

<DBQUERY  Name= “unescape"  DATASOURCE="iCUBASE" 

SQL  =  "unescape  '#url.nextpoint#' "> 

<DBIF  #url. endofc#  IS  "N“> 

<DBQUERY  Names "first"  DATASOURCE=" ICUBase" 

SQL  =  "select  *  from  MPCODE  where  POINTER  = 

' tunescape . nextpoint# ' " > 

<UL> 

<DBOUTPUT  QUERY  =  " first "> 

<A  HREFs "javascript : nextf rame ( ' #NEXTFRAME# ' , 

' ifirst. NEXTPOINT# ' ,  '#f irst. ENDOFC# ' ,  ' #f irst .DESCR# ' ) "> 
#first.DESCR#</a> 

<br> 

</DBOUTPUT> 

<DBELSE> 

<DBQUERY  Name=“second"  DATASOURCE=" ICUBase" 

SQL  =  "select  *  from  PCODE  where  POINTER  = 

' #unescape. nextpoint# ' "> 

<UL> 

<DBOUTPUT  QUERY  =  " second" > 

<A 

HREFs" javascript : nextf rame2 ('#NEXTFRAME#' , '# PCODE# ' , '#ENDOFC#' , '#DESCR#' 

)  "> 

#DESCR#</a> 

<br> 

</DBOUTPUT> 


</DBIF> 


</body> 

</html> 
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<i 

<i 

<! 

<! 

<1 

<l 

<1 

<1 

<1 

<1 

<i 

<i 

<1 

<l 

<l 

<i 

<i 

<i 


The  ICUBase  UNC  Hospitals  Procedure  Code  Menu 

This  screen  generates  procedure  code  engines  from  the 
M_PCODE  and  PCODE  tables  in  the  ICUBASE  database, 

This  screen  is  frame  opener  for  the  procedure  code 
screens  pcode.dbm  and  pcode2.dbm 

Arrays  store  frame  text  and  search  strings  and  the 
cycleopener  function  passes  the  code  back  to  the 
html  form  that  opened  the  coding  window 

Written  By  Joe  Mirrow 

f i 1 ename :  pcode . htm 


<  I - 

<html> 

<title>Procedure  Codes</title> 

<META  HTTP-EQUIV=“ Pragma"  CONTENT= "no -cache " > 
<script> 

function  cycleopener (pcode) { 
opener .advanceframel (pcode) ; 

} 


> 


— > 


— > 


— > 


— > 
— > 
— > 


— > 


— > 


— > 
— > 
— > 


— > 


— > 


— > 


— > 


> 


frame  =  new  Array (5); 
framell]  =  "; 
frame [2]  = 
frame  [3]  = 
frame [4]  = 
frame [5]  = 


frametext  =  new  Array  (5)  ; 
frametext[l]  = 
frametext  [2]  = 
frametext  [  3  ]  =  '  ' ; 
frametext [4]  = 
frametext [5]  = 

</script> 

<frameset  rows=''20%,80%*'> 

<frame 

src='http: //chimera. med. unc. edu/scripts/dbml .exe?template=icubase/pcode2 

.dbm&iframe=0'  naroe= '  pcode2 '  MARGINWIDTH=:0  MARGINHEIGHT=0> 

<  frame 

src= 'http: //chimera. med.unc.edu/scripts/dbml .exe?template=icubase/pcode. 
dbmScframe=0&:nextpoint=STARTUPScendofc=N'  name='pcodel '  MARGINWIDTH=0 
MARGINHEIGHT=0> 

</frameset> 


</html> 
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- - - 

<1—  "> 

<1—  -“> 

<i —  The  ICUBase  UNC  Hospitals  Procedure  Code  Menu  — > 

<1 —  — > 

<i —  This  screen  generates  the  upper  menu  system  for  the  — > 

<i —  procedures  coding  engine.  To  do  this,  entries  from  the — > 
<! —  lower  frame  are  unescaped  and  stored  in  Javascript  (TM) — > 

<’ —  variables  in  the  parent  document.  Both  the  text  string — > 
<1 —  and  the  path  are  stored  in  arrays  and  are  called  if  — > 
<i —  the  link  is  clicked  on  by  the  user.  — > 

<1—  “> 

<i —  Written  By  Joe  Mirrow  — > 

<1—  —> 

<i —  filename:  pcode2.dbm  — > 

<i—  "> 

<1 —  --> 

- - - 

<html> 

<title>ICD-9  Blank</title> 

<body  bgcolor="#f f f f f f **> 


<script> 

function  CallSelf  (frameniamber)  { 
frameno  =  'frame'  +  framenumber; 

newlocation  =  “ /scripts/dbml .exe?template=icubase/pcode.dbm“  + 

parent .  frame  [  framenumber  ]  ; 

parent. frames [1] .location  =  newlocation; 

newlocation  =  ■/scripts/dbml.exe?template=:icubase/pcode2  .dbm&:frame="  + 
framenumber  ; 

parent .frames [0] .location  =  newlocation; 

) 

function  WriteFrame (frame) { 

parent .frames [0] .document .write ( '<UL><IMG  SRC=“/icubase/open.gif " 
BORDERsOxa  href /scripts/dbml  .exe?template=icubase/pcode . htm** 
targets  "_t op ">Procedure  Codes</A><UL>' ) ; 
for  (i=l;  i<frame  +  1;  i++) { 

frametexts  '<IMG  SRCs" /icubase/open.gif *•  BORDER=0><A 

HREF=" javascript rCallSelf ( '  +  i  +  ')“>'  +  parent . frametext [ i]  + 

'</A><UL>' 

parent.frames[0] .document .write (frametext) ; 

} 

} 

framenum  =  <dboutput>#url.frame#</dboutput>; 
parent. frames[0]  .WriteFrame (framenum)  ; 

</script> 

</body> 

</html> 
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<1 - - - 

<l“ 

<l  — 

<l —  The  ICUBase  Problem  List  Screen  1 

<i" 

<1 —  The  problem  list  screen  shows  both  active  and  inactive 
<! —  problems  for  a  current  patient.  It  uses  the 
<i —  MASTERPROBLEMS  table  to  generate  each  list.  The  edit 
<1 —  button  next  to  each  problem  calls  problem2 .dbm. 

<1 —  An  interface  to  the  menu  code  screen  (dcode.htm)  and 
<! —  the  soundex  search  ( dc odes ear ch. dbm)  is  provided. 

<1  — 

<1—  Written  By  Joe  Mirrow 

<1  — 

<1 —  filename:  probleml.dbm 

<1“ 

<1  — 

- - 

<!DOCTYPE  HTML  PUBLIC  “ -//IETF//DTD  HTML//EN'*> 


> 


— > 


— > 
— > 
— > 
—  > 


— > 


— > 


—  > 


—  > 


— > 


— > 
— > 
—  > 
—  > 
—  > 


<html> 

<script> 

function  editproblem( codenumber /problemnumber) { 

newlocation  =  “/scripts/dbml .exe?template=icubase/problem2 .dbmScKNUMBER=" 
+  parent . Get Cookie ( "KNUMBER" )  + 

“fictodaydats"  +  parent .GetCookie { "TODAYDAT" )  + 
"£cunitnum=:**  +  parent  .GetCookie  ( “UNITNUM" )  + 

"&daykey= "  +  parent .GetCookie { "DAYKEY" )  + 

"fitprobnum="  +  problemnumber  +  "&dcode="  +  codenumber  + 

“&problem=" ; 

//alert  ("codeniimber=  "  +  codenxamber  +  “and  problemnumber=  “  + 
problemnumber)  ; 

parent .right . location  =  newlocation; 

} 

function  getdcode(){ 

//alert ("calling  parent"); 
parent . opendcode ( ) ; 

} 

function  getsearch(dcodetext) { 

//alert (dcodetext) ; 

parent . opendcodesearch (dcodetext ) ; 

} 

function  advanceframe(dcode) { 
newlocation  = 

" /scripts /dbml .exe?template=icubase/problemprocess2 .dbmfi:newproblem=&dcod 

eresults"  +  dcode  +  "&knumber=“  +  parent.GetCookie(“KNUMBER"); 
parent .right . location  =  newlocation; 

} 


</script> 

<DBSET  #KNUMBER#-#url.KNUMBER#> 
<DBSET  #todaydat#  =  #url .today dat#> 
<DBSET  #unitnum#  =  #url.unitnum#> 
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<DBSET  tdaykey#  =  #url . daykey#> 


<DBQUERY  NAME= "patient"  DATASOURCE="ICUBase" 

SQL  =  "SELECT  patient.FNAME,  patient .LNAME,  admdc.ADMDATE, 
admdc.UNITNUM,  admdc . H_ADMDAT  FROM  ADMDC , PATIENT 
WHERE  ADMDC. KNUMBER=#KNUMBER#  and 
AMIDC .UNITNUM= Patient .UNITNUM  AND  ADMDC.UNITNUM  =  ' tUNITNUM# ' ;  "> 

<DBQUERy  Names "CheckActive"  DATASOURCE="ICUBase" 

SQL  =  "select  total=count (*)  from  MASTERPROBLEMS  where 
KNUMBER=#KNUMBER# 

and  UNITNUMs ' #unitnum# '  and  ACTIVE='Y’"> 

<DBQUERY  Names "CheckInactive"  DATASOURCEs'ICUBase" 

SQL  =  "select  totalscount ( * )  from  MASTERPROBLEMS  where 
KNUMBERs#KNUMBER# 

and  UNITNUMs ' #unitniim# '  and  ACTIVE='N'"> 


<head> 

<title>Admission  Problem  List  screen</title> 

</head> 

<body  bgcolors#ffffff> 

<form  action  s  /scripts/dbml.exe?templatesicubase/probleraprocess .dbm 
methods" POST ■> 

<table  widthsl00%> 

<DBOUTPUT  QUERYs"patient"> 

<tr><td  widths25%>Patient :  iFNAME#  #LNAME#</td><td  widths25%>Unit  ##: 
#unitnum#</td><td  width=25%>Admitted  to  Hospital: 

#DateFormat (H_ADMDAT)#</td><td  widths25%>ICU  Admit  Date: 

#DateFormat (ADMDATE) #</td></tr></DBOUTPUT> 

</table> 

<table  widthsl00%> 

<DBIF  #checkActive. total#  is  NOT  "0"> 

<DBQUERY  Names “pr intact ive"  DATASOURCE  s  "ICUBASE" 

SQLs  "SELECT  KNUMBER,UNITNUM,  PATIENTPROBNUMBER,  ICD9CODE, 
LastUpdated,  Descr,  ACTIVE,  OnsetDate,  EndDate 

FROM  MASTERPROBLEMS  WHERE  ( ( (MASTERPROBLEMS .ONITNUM) s ' #UNITNUM# ' )  AND 
( (MASTERPROBLEMS . ACTIVE ) = ' Y ' ) ) " > 

<h3>Active  Problem  List</h3> 


<TABLE  CELLPADDINGsO  CELLSPACINGsO  WIDTHslOO%  BORDERsO><tr> 

<td  widthslO%></td> 

<TD  widths60%>Problem</TD> 

<TD  widthslO%>Reference</TD> 

<TD  widths 10%>0nset  Date</TD> 

<TD  widthslO%>Last  Updated 
</TD> 


</tr> 

<DBOUTPUT  QUERYs “pr intact ive“> 
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<TR> 


<td  width=10%><INPUT  TYPE=-Button*  value="Edit" 
onClick='editproblein('#ICD9C0DE#' , ' #PATIENTPROBNUMBER# ' ) -></td> 

<TD  width=60%>  #DESCR#</TD> 

<TD  width  =10%><a  ,  . 

href =" http: //ovid.med.unc .edu : 8888/ovidweb/ovidweb.cgi ■>Reference</a> 

</TD> 

<TD  width=10%>  tDateFormat {ONSETDATE)#</TD> 

<TD  width=10%>  tDateFormat {LastUpdated)#</TD> 


</TR> 

</DBOUTPUT> 

</TABLE> 


<DBELSE> 

<h3>No  Active  Problem  List</h3> 


</DBIF> 

<DBIF  tCheckInActive. total#  is  NOT  “0“> 

<DBQUERY  Name=*printinactive“  DATASOURCE  =  "ICUBASE" 
SQL=  "SELECT  KNUMBER,UNITNUM,  PATIENTPROBNUMBER, 
LastUpdated,  Descr,  ACTIVE,  OnsetDate,  EndDate 
FROM  MASTERPROBLEMS  WHERE  { ( (MASTERPROBLEMS .UNITNUM) 
( (MASTERPROBLEMS. ACTI VE) ='N' ) ) “> 


ICD9CODE, 

=  '  #UNITNUM#  ' ) 


AND 


<h3>Inactive  Problem  List</h3> 


<TABLE  CELLPADDING=0  CELLSPACING=0  WIDTH=100%  BORDER=0><tr> 
<td  width=10%></td> 

<TD  width=60%>Problem</TD> 

<TD  width=10%>Reference</TD> 

<TD  width=10%>End  Date</TD> 

<TD  width=10%>Last  Updated</TD> 


</tr> 

<DBOUTPUT  QUERY= • pr int inact i ve “ > 

<TR> 

<td  width=10%><INPUT  TYPE=“Button“  VALUE="Edit" 
onClick=“editproblem{ '#ICD9CODE#' , '# PATIENTPROBNUMBER# ' ) -></td> 

<TD  width=60%>#DESCR#</TD> 

<TD  width=10%><a  ^  , 

href = “http : / /ovid.med.unc .edu : 8888/ ovidweb/ ovidweb.cgi "  >Ref erence</a> 

</TD> 

<TD  width=10%>  tDateFormat (ENDDate)#</TD> 

<TD  width=10%>  tDateFormat (LastUpdated) #</TD> 


</TR> 

</DBOUTPUT> 

</TABLE> 

<DBELSE> 

<h3>No  Inactive  Problem  List</h3> 
</DBIF> 

<br> 

<h3>Enter  a  New  Problem  </h3> 
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<INPUT  TYPE="Button'  VALUE=*Click  Here  To  Use  Menu  System" 
onClick="getdcode() ■> 

<BR><BR> 

(Free  Text:  SOUNDEX  SEARCH) <BR> 

<textarea  name="newproblem*  rows=4  cols=60  hscroll="of f " 
vn:ap=" ■></textarea><br> 

<INPUT  TYPE="Button"  NAME=*SUBMIT"  VALUE=“Or  Enter  Search  Text" 
onClick="getsearch (document. forms[0] .newproblem. value) "> 


<input  type=" hidden"  name=KNUMBER 
values " <DBOUTPUT>#KNUMBER#</DBOUTPUT> " > 

<input  types "hidden"  namesTODAYDAT 
values " <DBOUTPUT># t  odaydat #< / DBOUTPUT> " > 

<input  types "hidden"  namesUNITNUM 
values " <DBOUTPUT>#unitnum#</DBOUTPUT> " > 

<input  types "hidden"  namesDAYKEY  values "<DBOUTPUT>#day key #</DBOUTPUT>"> 
<input  types “hidden"  namesscreen  values"adproblem"> 

</form> 

</body> 

</html> 
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- - 

<!  — 

<1-- 

<!"-  The  ICUBase  Problem  List  Screen  2 

<!—  .  ^ 

<1--  The  second  problem  screen  allows  the  user  to  interact 

<i with  the  patient's  current  problem.  This  screen  is 

<!-*  linked  to  the  DAILYPROBLEMS  table  of  the  database 

and  is  processed  by  adproblem.dbm.  There  are  two  ways 
<j„  to  get  to  this  screen  -  from  either  of  the  coding 
<1 —  engines  (to  code  a  result)  or  by  an  edit  of  a  current 
<i —  problem  in  the  database. 

<  I  — 

<!--  Written  By  Joe  Mirrow 

<1  — 

<i~-  filename:  problem2.dbm 

<  I  — 

<1  — 

- - 

<iDOCTyPE  HTML  PUBLIC  " -//IETF//DTD  HTML//EN“> 

<html> 

<head> 

<title>Edit  a  Problem  Screen</title> 

</head> 

<DBIF  #url. problem#  is  “"> 

<DBQUERy  Name= " dcodequery "  DATASOURCE= " ICUBASE " 

SQL=  “Select  *  from  DCODE  where  Dcode='#url.dcode#' “> 

<DBQUERY  Name= “ dcodepat ient “  DATASOURCE= “ ICUBase “ 

SQL  =  "select  total=count (*) ,  active, onsetdate, enddate  from 
masterproblems  where  icd9code='#url.dcode#'  and  knuinber=#url .KNUMBER# 
group  by  active, onsetdate,enddate“> 

<DBQUERY  Names • dcodesearch*  DATASOURCE= " ICUBase “ 

SQL  =  "select  totalscount (*)  from  dcode  where 
Dcode= ' #url . dcode# ' "> 

<DBELSE> 

<DBQUERY  Name=*dcodepatient"  DATASOURCE=“ ICUBase" 

SQL  =  "select  total=0,  active, onsetdate, enddate  from 
masterproblems  where  icd9code='#url. dcode#'  and  knumber=#url. KNUMBER# "> 

<DBQUERY  Name=" dcodesearch"  DATASOURCE=" ICUBase" 

SQL  =  "select  total=count {* ) ,  dcode. full_descr  from  dcode  where 
soundex {'#url. problem#')  =  soundex (dcode. full^descr)  group  by 
full_descr"> 

</DBIF> 

<DBIF  #dcodesearch. total#  GREATER  THAN  "0"> 

<DBQUERY  NAME=" patient"  DATASOURCE=" ICUBase" 

SQL  =  “SELECT  patient .FNAME,  patient .LNAME,  admdc . ADMDATE , 
admdc.UNITNUM,  admdc .H^ADMDAT  FROM  ADMDC ,  PATIENT 
WHERE  ADMDC. KNUMBER=:#url. KNUMBER#  and 
ADMDC. UNITNUM=Patient.UNITNUM  AND  ADMDC.UNITNUM  =  '  #url  .UNITNUM#  '  ;  "> 

<body  bgcolor=#f f f f f f> 


— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
„> 
— > 
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<fonn  action  =  /scripts /dbml  .exe?teinplate=icubase/adinit  .dbm 
methods" POST" > 

<table  width=100%> 

<DBOUTPUT  QUERys"patient"> 

<tr><td  width=25%>Patient :  #FNAME#  #LNAME#</td><td  width=25%>Unit  ##: 
#UNITNUM#</td><td  width=25%>Admitted  to  Hospital; 

#DateFormat {H_ADMDAT) #</td><td  width=25%>ICU  Date: 

#DatePormat (ADMDATE) #</td></tr></DBOUTPUT> 

<  /  tabl  ex  /DBOUTPUT> 

<table  width=100%> 

<h3>Edit  a  Problem</h3> 

<DBIF  #url .problem#  is  ""> 

<DBOUTPUT  Query="dcodequery"> 

<input  types "hidden"  namesDCODETEXT  values "#full_DESCR#“> 

Problem  Text:  #FULL_DESCR# 

</DBOUTPUT> 

<br> 

<DBELSE> 

Select  the  ICD-9  Text: 

<select  names "DCODETEXT"> 

<DBOUTPUT  QUERYs"dcodesearch"> 

<opt  i  on>#FUIiL_DESCR# 

</DBOUTPUT> 

</select> 

<a  href  s 

"http ;/ /chimera. med.  unc.  edu/scripts/dbml.  exe?teii5>latesicubase/probleml  .d 
bm&KNOMBERs<DBOUTPUT>#url .KNUMBER#</DBOUTPUT>&todaydats<DBOUTPUT>#url . to 
daydat#</DBOUTPUT>&unitnums<DBOUTPUT>#url.unitnum#</DBOUTPUT>&daykeys<DB 
OUTPUT>#url.daykey#</DBOUTPUT>">CLICK  HERE  IF  NOT  IN  THIS  LIST</a> 

<br> 

</DBIF> 

<table  widthslOO%xtr><td  width  s  25%> 

<DBIF  #dcodepatient. total#  is  "1"> 

<DBQUERY  Names "textsearch"  DATASOURCEs " icUBase " 

SQL  s  "select  assessmentplan  from  dailyproblems  where 
knumbers#url .KNUMBER# 

and  todaydats'#url.todaydat#'  and 
pat ientpr obnumbers#ur 1 . probnum# " > 

<DBIF  #dcodepatient .active#  is  "Y"> 

<INPUT  TYPEs"RADIO"  NAMEs"active"  VALUEs"Y"  CHECKED>  Active  <BR> 
<INPUT  TYPEs"RADIO"  NAMEs"active"  VALUEs"N">  Inactive  <BR> 

<INPUT  TYPEs"RADIO"  NAMEs"active"  VALUEs"0">  Delete</td> 

<td  width  s  25%>Problem  Severity:  <INPUT  TYPEs"TEXT" 

NAMES "ProbSev"  VALUEs""  SIZEs3  MAXLENGTHs3x/td> 

<td  width  s  25%>0nset  Date: 

<DBOUTPUT>#Dateformat (dcodepatient .onsetdate) #</DBOUTPUT> 

<INPUT  TYPEs"hidden"  NAMEs"onset" 

VALUES »<DBOUTPUT>#Dateformat (dcodepatient . onsetdate) #</DBOUTPUT> "  SIZEsS 
MAXLENGTHsSx  /  td> 

<td  width  s  25%>End  Date:  <INPUT  TYPEs"TEXT"  NAMEs"enddate" 
values""  SIZEsS  MAXLENGTHsSx /td> 

</table> 


no 


Assessment,  Recommendation  and  Plan:<br> 

<textarea  name=*assessmentplan“  rows=4  cols=60  hscroll=“off “ 
wraps • “ ><DBOUTPUT># texts earch . assessmentplan#</DBOUTPUT></ textarea><br> 
<DBELSE> 

< INPUT  TYPE=" RADIO"  NAME=" active"  VALUE="Y">  Active  <BR> 

<INPUT  TYPE="RADIO"  NAME="active"  VALUE="N"  CHECKED>  Inactive  <BR> 
<INPUT  TYPE=" RADIO"  NAME=" active*  VALUE=*0“>  Delete</td> 

<td  width  =  25%>Problem  Severity;  <INPUT  TYPE="TEXT" 

NAME="ProbSev*  VALUE="*  SIZE=3  MAXLENGTH=3></td> 

<td  width  =  25%>Onset  Date:  <INPUT  TYPE="TEXT"  NAME="onset" 

VALUES "<DBOUTPUT>#Dateformat (url . todaydat ) #</DBOUTPUT>"  SIZEsS 
MAXLENGTHs8></td> 

<td  width  s  25%>End  Date: 

<DBOUTPUT>#Dateformat (dcodepatient .onsetdate) #</DBOUTPUT> 

<INPUT  TYPEs"hidden“  NAMEs*enddate" 

VALUES "<DBOUTPUT>#Dateformat (dcodepatient . onsetdate) #</DBOUTPUT> "  SIZEsS 
MAXLENGTHsSx  /  td> 

</table> 

Assessment,  Recommendation  and  Plan:<br> 

<textarea  names "assessmentplan*  rowss4  colss60  hscrolls'of f “ 

wraps" «><DBOUTPUT>#textsearch.assessmentplan#</DBOUTPUT></textarea><br> 

</DBIF> 

<DBELSE> 

<INPUT  TYPE="RADIO"  NAMEs’active"  VALUEs*Y"  CHECKED>  Active  <BR> 

<INPUT  TYPEs"RADIO"  NAME=*active*  VALUEs"N">  Inactive  <BR> 

<INPUT  TYPE="RADIO"  NAMEs*active*  VALUEs*0">  Delete</td> 

<td  width  s  25%>Problem  Severity:  <INPUT  TYPEs"TEXT*  NAME="ProbSev“ 
values""  SIZEs3  MAXLENGTHsSx /td> 

<td  width  =  25%>0nset  Date:  <INPUT  TYPEs*TEXT*  NAME="onset" 

VALUES •<DBOUTPUT>#Dateformat (url .todaydat) #</DBOUTPUT>"  SIZEsS 
MAXLENGTHsSx  /  td> 

<td  width  s  25%>End  Date;  <INPUT  TYPEs"TEXT"  NAMEs'enddate"  VALUE="“ 
SIZEsS  MAXLENGTHs8x/tdx/table> 

Assessment,  Recommendation  and  Plan:<br> 

<textarea  names“assessmentplan*  rowss4  colssSO  hscrolls'of f " 
wraps*  *x/textareaxbr> 

</DBIF> 


<input  types "SUBMIT*  name  s  -submit"  Value  s  « Submit "> 


<input  types "hidden"  name=KNUMBER 
values " <DBOUTPUT>#url .KNUMBER#</DBOUTPUT>" > 

<input  types "hidden"  name=TODAYDAT 
values " <DBOUTPUT>#url . todaydat#</DBOUTPUT> " > 

<input  types "hidden"  namesUNITNUM 
values " <DBOUTPUT>#ur 1 . unitnum#< /DBOUTPUT> " > 

<input  types "hidden"  namesDAYKEY 
values " <DBOUTPUT>#url . daykey#</DBOUTPUT> " > 

<input  types "hidden"  namesPROBNUM 
values  *  <DBOUTPUT>#url . probnum#< /DBOUTPUT> " > 

<input  types-hidden*  namesscreen  values "adproblein2*> 
</form> 
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<DBELSE> 

<hl>Problein  could  not  be  found  from  your  SOUNDEX  Search</hl> 

<BR> 

Click  <a  href  = 

"http : / /chimera .med . unc . edu/scripts/dbml . exe?template=icubase/probleml .  d 
bm£tKNUMBER=<DBOUTPUT>#url .KNUMBER#</DBOUTPUT>&todaydat=<DBOUTPUT>#url . to 
daydat#</DBOUTPUT>&unitnum=<DBOUTPUT>#url.unitnum#</DBOUTPUT>&daykey=<DB 
OUTPUT>#url.daykey#</DBOUTPUT>">here</a>  to  return. 

</DBIF> 


</body> 

</html> 
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— > 

— > 

--> 


The  ICUBase  Problem  Process  screen 

This  screen  simply  increments  the  active  problem  number 
of  a  patient  in  the  database  so  that  no  two  problems 
can  have  the  same  numeric  representation  in  the 
MASTERPROBLEMS  table 

Written  By  Joe  Mirrow 

filename :  problemprocess . dbm 


IDOCTYPE  HTML  PUBLIC  •-//IETF//DTD  HTML//EN*'> 


<html> 

<title>Process  Problem  Screen</title> 

<DBQUERY  NAME="Probnum**  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  LAST=:MAX  (PATIENTPROBNUMBER)  FROM  MASTERPROBLEMS  WHERE 
KNUMBER=#  form .  kniomber# "  > 

<DBSET  #TEMPNUM#  =  #Probnum.LAST#> 

<DBSET  #NEWPROBNUMNO#  =  #IncrementValue (TEMPNUM) #> 

<DBIF  #NEWPROBNUMNO#  IS  0> 

<DBSET  #NEWPROBNUMNO#  =  1> 

</DBIF> 

<script> 

if  (parent .GetCookie{“ St ate" )  i=  0){ 

newlocation  =  “ /scripts/dbml .exe?template=icubase/ "+ 
parent . screen [parent .GetCookie ( 'number' ) ] + 

"ficKNUMBER="  +  parent. GetCookie ("KNUMBER")  +  "&todaydat=" 
+  parent . GetCookie ( " TODAYDAT " )  + 

"&unitnijm="  +  parent  .GetCookie  ( "UNITNUM" )  +  "&daykey=" 

+  parent . GetCookie ( "DAYKEY" ) ; 

//} 

} 

else{ 

newlocation  -  " /scripts/dbml .exe?template=icubase/welcome. dbm" 

} 

parent . right . location=newlocation; 

</script> 

</html> 
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The  ICUBase  (second)  Problem  Process  screen 


This  screen  simply  increments  the  active  problem  number 
of  a  patient  in  the  database  so  that  no  two  problems 
can  have  the  same  numeric  representation  in  the 
MASTERPROBLEMS  table.  It  is  essentially  the  same  as 
problemprocessl .dbm  except  that  is  may  be  called  by 
nav.dbm  whereas  the  other  cannot. 

Written  By  Joe  Mirrow 

filename:  problemprocess2 .dbm 


SDOCTYPE  HTML  PUBLIC  ■-//IETF//DTD  HTML//EN"> 


<html> 

<title>Process  Problem  Screen</title> 

<DBQUERY  NAME=‘'Probnum"  DATASOURCE=“ ICUBase* 

SQL  =  "SELECT  LAST=MAX (PATIENTPROBNUMBER)  FROM  MASTERPROBLEMS  WHERE 
KNUMBER=#url .  knimnber#  *> 

<DBSET  iTEMPNUM#  =  #Probnxim.LAST#> 

<DBSET  #NEWPROBNUMNO#  =  #IncrementValue (TEMPNUM) #> 

<DBIF  #NEWPROBNUMNO#  IS  0> 

<DBSET  #NEWPROBNUMNO#  =  1> 

</DBIF> 

<script> 

if  (parent. GetCookie ( 'problemmove' )  ==  "true"){ 
problemnurober  =  <dBOUTPUT>#NEWPROBNUMNO#</DBOUTPUT> 
problem  =  '<dboutput>#url .newproblem#</dboutput>' 
dcoderesult  =  '<dboutput>#url .dcoderesult#</dboutput>' 

newlocation  =  * /scripts/dbml . exe?template=icubase/problem2 . dbm&KNUMBER= * 
+  parent . GetCookie ( "KNUMBER* )  + 

■&todaydat=“  +  parent .GetCookie ( "TODAYDAT* )  + 
■&unitnum="  +  parent .GetCookie ( "UNITNUM* )  + 

■&daykey=*  +  parent .GetCookie ( "DAYKEY* )  + 

"&probnum=*  +  problemnumber  +  “&dcode=*  +  dcoderesult 
+  "tproblems*  +  problem; 

} 

else 

newlocation  =  • /scripts/dbml. exe?template=icubase/*  + 
parent . screentparent  .GetCookie  ( 'niimber ' )  ]  + 

"&KNUMBER="  +  parent  .GetCookie ( "KNUMBER" )  +  "&;todaydat=" 
+  parent .GetCookie ( "TODAYDAT" )  + 

•  &unitnum= "  +  parent .  GetCookie  ( "  UNITNUM" )  +  "  £Edaykey= " 

+  parent .GetCookie ( "DAYKEY" ) ; 

) 

parent .right . location=newlocation; 

</script> 

</html> 
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- - - - - 

<1  — 

<!  — 

<1—  The  ICUBase  Procedure  List  Screen  1 

<i  — 

<i —  Essentially  the  same  as  the  problem  list  screen  except 
<1 —  that  it  does  not  have  an  active  and  inactive  listing 
<i_.  Uses  the  PROCS  table  to  generate  the  list. 

<i--  An  interface  to  the  menu  code  screen  (pcode.htm)  is 
< ! —  provided . 

<!  — 

<1—  Written  By  Joe  Mirrow 

<1 —  filename:  probleml.dbm 


<!  — 

<i  — 

<  I - 

<1D0CTYPE  HTML  PUBLIC  " -//IETF//DTD  HTML//EN“> 

<html> 

<script> 


— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
— > 
--> 
— > 
— > 
— > 


function  getpcode{){ 
parent . openpcode { ) ; 

} 

function  advanceframe (pcode) { 

newlocation  =  ^  • 

■ /scripts/dbml .exe?template=icubase/procedureprocess2 . dbm£cpcoderesult= 

+  pcode  +  “ficKNUMBERi:"  +  parent.GetCookieCKNUMBER"); 

parent .right • location  =  newlocation; 

) 


</script> 

<DBSET  #KNUMBER#=#url.KNUMBER#> 
<DBSET  #todaydat#  =  #url .today dat#> 
<DBSET  #unitnum#  =  #url.unitnum#> 
<DBSET  tdaykey#  =  #url .daykey#> 


<DBQUERY  NAME=  “patient"  DATASOURCE=‘' ICUBase" 

SQL  =  "SELECT  patient . FNAME ,  patient .LNAME,  admdc . ADMDATE , 
admdc.UNITNUM,  admdc . H_ADMDAT  FROM  ADMDC ,  PATIENT 
WHERE  ADMDC. KNUMBER=#KNUMBER#  and 
ADMDC. UNITNUM=Patient.UNITNUM  AND  ADMDC  .UNITNUM  =  'tUNITNUM#';  "> 

<DBQUERY  Name="CheckActive"  DATASOURCE=" ICUBase" 

SQL  =  "select  total=count (*)  from  PROCS  where  KNUMBER=#KNUMBER#  and 
UNITNUM= ' #unitnum# ' " > 

<head> 

<title>Admission  Procedure  List  Screen</title> 

</head> 

<body  bgcolor=#f f f f f f> 
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<£onn  action  -  /scripts/dbinl.exe?teroplate=icubase/procedureprocess .dbin 

methods:*  POST"  > 

<table  width=100%> 

<DBOUTPUT  QUERY= "patient ■> 

<tr><td  width=:25%>Patient :  #FNAME#  #LNAME#</td><td  width=25%>Unit  ##: 
#unitnum#</td><td  width=25%>Admitted  to  Hospital: 

#DateFormat (H_Ar»IDAT)#</td><td  width=25%>ICU  Admit  Date: 

#DateFormat (ADMDATE) #</td></tr></DBOUTPUT> 

</table> 

<table  width=100%> 

<DBIF  #checkActive. total#  is  NOT  "0“> 

<DBQUERY  Name="printactive"  DATASOURCE  =  "ICUBASE" 

SQL=  "SELECT  *  from  PROCS  WHERE  KNUMBER=#KNUMBER#  and 
UNITNUM= ' tunitnum# ' " > 

<h3>Current  Procedure  List</h3> 


<TABLE  CELLPADDING=0  CELLSPACING=0  WIDTH=60%  BORDER=0><tr> 
<TD  width=50%>Procedure</TD> 

<TD  width=10%>Reference</TD> 

<TD  width=20%  align=right>Procedure  Date</TD> 

</TD> 


</tr> 

<DBOUTPUT  QUERY=“printactive"> 

<TR> 

<TD  width=50%>#PNAME#</TD> 

<TD  width  =10%><a 

href = " ht tp : / / ovid . med . unc . edu ; 8  8  8 8 / o vi dweb / ovidweb . cgi “ >Ref er ence< / a> 
</TD> 

<TD  width=20%  align=right>  #DateFormat (PROCDATE) #</TD> 

</TR> 

</DBOUTPUT> 

</TABLE> 

<DBELSE> 

<h3>No  Current  Procedures</h3> 

</DBIF> 

<br> 

<INPUT  TYPE="Button"  VALUE="Click  Here  To  Use  Menu  System* 
onClick="getpcode{) "> 

<input  type=" hidden"  name=KNUMBER 
value= “ <DBOUTPUT>#KNUMBER#</DBOUTPUT> " > 

< input  type=" hidden"  name=TODAYDAT 
value= " <DBOUTPUT>#todaydat#</DBOUTPUT>" > 

<input  type=" hidden"  name=ONITNUM 
value= " <DBOUTPUT>#unitnum#</DBOUTPUT> " > 

<input  type=" hidden"  name=DAYKEY  value=*<DBOUTPUT>#daykey#</DBOUTPUT>*> 
<input  type="hidden“  name=screen  value="adprocedure*> 

</form> 

</body> 

</html> 
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<1 

<! 


> 


—  > 


<  i  — 

<1  — 

<  I  — 

<!  — 
<1-- 
<i  — 

<  I  — 
<1  — 


— > 

The  ICUBase  Procedure  List  Screen  2  — > 

— > 

The  second  procedure  screen  allows  the  user  to  interact  > 
with  the  patient's  current  problem.  This  screen  is  > 

linked  to  the  PROCS  table  of  the  database 

and  is  processed  by  adprocedure.dbm.  > 

— > 


<i„  Written  By  Joe  Mirrow 

<i  — 

<1 —  filename;  procedure2 .dbm 

<!-- 
<  I  — 

- - 

<‘DOCTyPE  HTML  PUBLIC  " -//IETF/ /DTD  HTML//EN“> 


—  > 
— > 
— > 
— > 
--> 
— > 


<html> 

<head> 

<title>Procedures  Screen</title> 

</head> 

<dbQUERy  Name= “patient"  DATASOURCE=" ICUBase" 

SQL  =  "Select  patient . f name,  patient .Iname,  patient .uni tnum, 
admdc . knumber ,  admdc . ADMDATE 

from  patient, admdc  WHERE  admdc . knumber  =  #url .KNUMBER#  and 
patient .unitnum= ' #url .unitnum# ' 

and  patient .unitnum  =  admdc. unit num"></dbguery> 


<DBQUERy  NAME=: "procedures"  DATASOURCE=" ICUBASE" 

SQL  =  "SELECT  ICUATT, ICUFELLOW, ICURES  from  PROCS  WHERE 
DAyKEy=#ur 1 . DAyKEy# " > 


<DBSET  #PCODETOTAL#  =  0> 

<DBQUERy  Name="pcodequery"  DATASOURCE=" ICUBASE" 

SQL=  "Select  *  from  PCODE  where  pcode=' #url .pcoderesult# ' "> 


<DBQUERy  NAME="INDIC"  DATASOURCE=" ICUBase" 

SQL  =  "select  CHOICE  from  popup  where  field  =  'INDIC'  order  by 
CHOICE "> 

<DBQUERy  NAME="SITE"  DATASOURCE=" ICUBase" 

SQL  =  "select  CHOICE  from  popup  where  field  =  'SITE'  order  by  CHOICE"> 

<DBQUERy  NAME="TyPE“  DATASOURCE=" ICUBase" 

SQL  =  "select  CHOICE  from  popup  where  field  =  'TyPE'  order  by  CHOICE "> 

<DBQUERy  NAME=" ICUATT"  DATASOURCE= " ICUBase" 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' ICUATT'  ORDER  By  CHOICE; 


<DBQUERy  NAME=" ICUFELLOW"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  F I ELD= ' ICUFELLOW'  ORDER  By 
CHOICE;  "> 

<DBQUERy  NAME=" ICURES"  DATASOURCE= " ICUBase" 
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SQL  =  “SELECT  CHOICE  FROM  POPUP  WHERE  FIELD= ' ICURES '  ORDER  BY  CHOICE; 

■> 

<DBQUERY  NAME=*COMP*  DATASOURCE="ICUBase* 

SQL  =  'select  CHOICE  from  popup  where  fields' COMP2'  OR  fields ' COMPl ' 

ORDER  BY  CHOICE •> 

<body  bgcolorsffff f ff> 

<form  action  s  /scripts/dbml.exe?templatesicubase/admit .dbm 
methods" POST ■> 

<table  widthsl00%> 

<DBOUTPUT>  ^  ^  ^ 

<tr><td  widths33%>  Patient;  #patient .FNAME#  #patient .LNAME#</td><td 
widths33%>  Unit  Nianber:  #patient.UNITNUM#</td> 

</DBOUTPUT>  ^  „ 

<td  width=34%>  Procedure  Date:  <input  type=text  si2e=8  maxlength=8 

names ■ PROCDATE " 

VALUES "<DBOUTPUT>#Datefonnat (url .TODAYDAT) #</DBOUTPUT>“></td></tr> 
</table> 

<table  widthsl00%> 

<tr><td  widths33%>  Procedure: 

<DBOUTPUT>#pcodequery . descr#</DBOUTPUT> 

</td><td  width=33%>Indications: 

<select  names" INDIC"  si2esl> 

<DBOUTPUT  QUERYs" INDIC •> 

<option>#CHOICE# 

</DBOUTPUT> 

</select></td></tr> 

<tr><td  widths33%>Insertion  Site: 

<select  names“SITE"  sizesl> 

<DBOUTPUT  QUERYs«SITE“> 

<option>#CHOICE# 

</DBOUTPUT> 

</select>< / 1 dxtd  widths 33%>Side: 


< input  typesradio  name="SIDE"  values •R">  <strong>R</strong> 
<input  typesradio  names'SIDE"  values“L“>  <strong>L</strong> 
<input  typesradio  names-siDE"  values“U">  <strong>U</strong> 


</td><td  widths34%> 

Date  Removed;  <input  typestext  sizesS  maxlengthsS 
names "DREMOVE" ></td></tr> 

<tr><td  widths33%>  Catheter  Type: 

<select  names“TYPE“  sizesl> 

<DBOUTPUT  QUERYs" TYPE *> 

<option>#CHOICE# 

</DBOUTPUT> 

</select> 

</td><td  widths33%>  Medication: 


<input  typesradio  names“MED"  values “Lidocaine"> 
<strong>Lidocaine</strong> 

<input  typesradio  names"MED"  values" Other ">  <strong>Other</strong> 


</td><td  widths34%></td></tr> 
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<tr><td  width=33%>  Cutdovm? 

<input  type=radio  name=“CUTDOWN*  value=“y“>  <strong>Yes</strong> 
<input  type=radio  naine="CUTDOWN*  value='N*>  <strong>No</strong> 

</td><td  width=33%></td><td  width=34%></td></tr> 

<tr> 

<td  width=33%>  Changed  Over  Wire? 

<input  type=radio  naine= “WIRED"  value=“Y">  <strong>Yes</strong> 
<input  type=radio  name=“WIRED“  value="N“>  <strong>No</strong> 

</td> 

<td  width=34%>  Complications: 

<select  name=‘COMP"  multiple  size=5> 


<DBOUTPUT  QUERY=*COMP"> 

<opt i on># CHO ICE# 

</DBOUTPUT>  .  , 

</select></td><td  width=34%>Hold  down  “Crtl“  to  select  multiple 

complications  (Maximum  of  2)</td></tr> 

</table> 

<t6dDle  width=100%> 

<tr><td  width=10%  align  =  right>  Description:  </a></td><td 
width=90%><textarea  name=“DESCR“  rows=2  cols=60  hscroll=“of f " 
wrapx  / 1  extar  eax  / 1  dx  / 1  r  > 

</table> 

<table  width=100%> 

<trxtd  width=33%>  Resident: 

<select  name=“ICURES“  si2e=l> 

<DBOUTPUT  query=“procedures*> 

<OPTION>  #ICURES# 

</DBOUTPUT> 

<DBOUTPUT  QUERY=“ICURES“> 

<option>#CHOICE# 

</DBOUTPUT> 

</selectx/tdxtd  width=33%>  Fellow: 

<select  names “ICUFELLOW"  sizesl> 

<DBOUTPUT  guerys* procedures *> 

<OPTION>  #ICUFELLOW# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs “ ICUFELLOW“ > 

<option>#CHOICE# 

</DBOUTPUT> 

</selectx/tdxtd  widths34%>  Attending: 

<select  names" ICUATT"  sizesl> 

<DBOUTPUT  query="procedures"> 

<OPTION>  # ICUATT# 

</DBOUTPUT> 

<DBOUTPUT  QUERYs" ICUATT "> 

<opt ion>#CHOICE# 

</DBOUTPUT> 

</selectx/tdx/tr> 

<trxtdx/tdxtdx input  type="SUBMIT"  name  =  "Submit"  Value  = 

"  Submi  t  “  X  / 1  dxtdx  /  tdx  / 1  r  > 

</table> 
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<input  types  ■hidden"  naine=PNAME 

values ■ <DBOUTPUT>#pcodequery . descr#< /DBOUTPUT> • > 

<input  types "hidden"  namesBILLCODE 

values ■ <DBOUTPUT>#url .pcoderesult#</DBOUTPUT> " > 

<input  types"hidden"  namesPROCKEY 

values ■ <DBOUTPUT>#ur 1 . pr ocnuin#< /DBOUTPUT> " > 

<input  types"hidden"  namesKNOMBER 

values ■ <DBOUTPUT>#url . KNUMBER#< /DBOUTPUT> " > 

<input  types "hidden"  namesTODAYDAT 

values «<DBOUTPUT>#url . todaydat#</DBOUTPUT> " > 

<input  types "hidden"  namesUNITNUM 

values " <DBOUTPUT>#url . unitnum#</DBOUTPUT> " > 

<input  types "hidden"  namesDAYKEY 

values ■ <DBOUTPUT>#url . daykey#</DBOUTPUT> ■ > 

<input  types"hidden"  nainesscreen  values"adprocedure"> 
</fonn> 

</body> 

</html> 
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<! - - > 

<!—  — > 

<!“  — > 

<! —  The  ICUBase  Procedure  Process  screen  — > 

<!—  — > 

<! —  This  screen  simply  increments  the  active  proc  number  — > 

<! —  of  a  patient  in  the  database  so  that  no  two  prcedures  — > 

<! —  can  have  the  same  numeric  representation  in  the  — > 

<!—  PROCS  table  --> 

<!—  — > 

< !  —  Written  By  Joe  Mirrow  — > 

<! —  — > 

<! —  filename:  procedureprocess .dbm  — > 

<! —  — > 

<!—  — > 

<1 - - 

<!DOCTYPE  HTML  PUBLIC  "-//IETF//DTD  HTML//EN"> 


<html> 

<title>Procedure  Process  Screen</title> 

<DBQUERY  NAME="Probnum"  DATASOURCE=“ ICUBase" 

SQL  =  "SELECT  LAST=MAX (PROCKEY)  FROM  PROCS  WHERE 
KNUMBER=#  f orm . knumber# " > 

<DBSET  #TEMPNUM#  =  #Probnum.LAST#> 

<DBSET  #NEWPROCNO#  =  #IncrementValue (TEMPNUM) #> 

<DBIF  tNEWPROCNO#  IS  0> 

<DBSET  tNEWPROCNO#  =  1> 

</DBIF> 

<script>  • 

if  (parent. GetCookie{" state")  !=  0){ 

newlocation  =  "/scripts/dbml.exe?template=icubase/"  + 
parent . screen [parent .GetCookie ( ' number ' ) ] + 

"&KNUMBER="  +  parent. GetCookie ( "KNUMBER " )  +  "&todaydat 
+  parent . GetCooki e ( " TODAYDAT " )  + 

"  £eunitnum= "  +  parent .  GetCookie  ( "  UNITNUM" )  +  "  &daykey = 
+  parent .GetCookie { "DAYKEY" ) ; 


else{ 

newlocation  =  "/scripts/dbml.exe?template=icubase/welcome.dbm" 


parent .right . 1 ocat ion=newl beat ion; 
</script> 

</html> 
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<1 - - 

<!—  — > 

<!—  — > 

<! —  The  ICUBase  (second)  Procedure  Process  screen  — > 

<!—  "> 

<! —  This  screen  simply  increments  the  active  proc  number  — > 

<! —  of  a  patient  in  the  database  so  that  no  two  procedures  — > 
<! —  can  have  the  same  numeric  representation  in  the  — > 

<! —  PROCS  table.  It  is  essentially  the  same  as  — > 

<! —  procedureprocess . dbm  except  that  is  may  be  called  by  — > 

<! —  nav.dbm  whereas  the  other  cannot.  — > 

<!—  "> 

<! —  Written  By  Joe  Mirrow  — > 

<!—  "> 

<! —  filename:  procedureprocess2 .dbm  — > 

<1 —  — > 

<! —  "> 

- - - 

<!DOCTYPE  HTML  PUBLIC  "-//IETF/ /DTD  HTML//EN"> 


<html> 

<title>Process  Problem  Screen</title> 

<DBQUERY  NAME="Probnum"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  LAST=MAX (PROCKEY)  FROM  PROCS  WHERE 
KNUMBER=#url .  knutnber#  "  > 

<DBSET  #TEMPNUM#  =  #Probnum.LAST#> 

<DBSET  tNEWPROCNO#  =  #IncrementValue (TEMPNUM) #> 

<DBIF  #NEWPROCNO#  IS  0> 

<DBSET  #NEWPROCNO#  =  1> 

</DBIF> 

<script> 

if  (parent .GetCookie ( 'proceduremove' )  ==  "true"){ 
procedurenumber  =  <DBOUTPUT>#NEWPROCNO#</DBOUTPUT> ; 
pcoderesult  =  '<dboutput>#url.pcoderesult#</dboutput>' ; 

newlocation  = 

" /scripts /dbml .exe?template=icubase/procedure2 .dbm&KNUMBER="  + 
parent . GetCookie ( "KNUMBER" )  + 

"&todaydat="  +  parent .GetCookie ( "TODAYDAT" )  + 
"&unitnum="  +  parent .GetCookie ( "UNITNUM" )  + 

"£cdaykey="  +  parent  .GetCookie  ( "DAYKEY" )  + 

"&procnum="  +  procedurenumber  +  "&pcoderesult="  + 

pcoderesult; 

) 

else 

{ 

newlocation  =  "/scripts/dbml.exe?template=icubase/"  + 
parent . screen [parent .GetCookie ( ' number ' ) ]  + 

"£cKNUMBER="  +  parent  .GetCookie  ( "KNUMBER" )  +  "&todaydat=" 
+  parent . GetCookie ( " TODAYDAT " )  + 

“Scunitnum="  +  parent .GetCookie ( "UNITNUM” )  +  "&daykey=" 

+  parent . GetCookie ( "DAYKEY" ) ; 

) 

parent . right . location=newlocation; 

</script> 

</html> 
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<1 - > 

<1 —  — > 

<1 —  — > 

<i —  The  ICUBase  Progress  Form  — > 

<5"  — > 

<! —  This  is  a  wierd  litle  form  that  is  requred  to  process  — > 
<! —  the  welcome. dbm  screen  of  the  application  so  that  the  — > 

<1 —  user  can  select  a  patient  for  a  progress  note  or  — > 

<! —  discharge.  First  it  checks  to  see  the  application  — > 

<! —  state  then  processes  the  welcome  screen.  If  no  patient — > 

<! —  is  selected  it  returns  an  error.  — > 

<1 —  — > 

<! —  Written  By  Joe  Mirrow  — > 

<1 —  — > 

<! —  filename;  progress. dbm  — > 

<! —  — > 

<1 —  — > 

<1 - > 

<!DOCTYPE  HTML  PUBLIC  "-//IETF//DTD  HTML//EN"> 


<HTML> 

<TITLE>ADMIT</TITLE> 

<BODY> 

<DBIF  iparameterexists (form. patients ) #  IS  "YES“> 

<dbquery  name  =  "getunitnum*  datasource=" ICUBASE" 

SQL  =  "select  UNITNUM  = 

ltrim( stuff ( '#form. patients#' , 1, char index ( ' , ' , '#form. patients# 

<DBSET  #UNITNUM#  =  #getunitnum.UNITNUM#> 

<DBQUERY  name  =  "getKNUMBER"  datasource=" ICUBASE" 

SQL  =  "Select  KNUMBER  from  ADMDC  WHERE  UNITNUM= '#getunitnum. UNITNUM# ' 
and  active=l"> 

<DBSET  #KNUMBER#  =  #getKNUMBER.KNUMBER#> 

<DBELSE> 

<DBSET  #KNUMBER#  =  "0"> 

<DBSET  #UNITNUM#  =  "0"> 

</DBIF> 

<script> 


admitKNUMBER=<dboutput>#KNUMBER#< / dboutput> 
admi tUNITNUM=<dboutput>#UNITNUM#< / dboutput> 

parent . SetCookie ( "UNITNUM" ,  admitUNITNUM) ; 
parent . SetCookie ( "KNUMBER" ,  admitKNUMBER) ; 


if  (admitUNITNUM  !=  0) { 

if  (parent. GetCookie( "state")  !=  3){ 

var  newlocation  =  "/scripts/dbml.exe?template=icubase/"+ 
parent . screen [parent .GetCookie ( "number" ) ] + 

"&KNUMBER="  +  parent. GetCookie ("KNUMBER")  + 
"Sctodaydats"  +  parent. GetCookie ( "TODAYDAT" )  + 

"£cunitnum="  +  parent  .GetCookie  ( "UNITNUM" )  +  "tdaykey=" 
+  parent .GetCookie ( "DAYKEY" ) ; 

) 
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var  newlocation  =  • /scripts/dbml.exe?teinplate=icubase/discharge.dbni"  + 

■&KNUMBER=*  +  parent .GetCookie ( “KNUMBER" )  + 
•&todaydat=*  +  par ent. GetCookie (" TODAYDAT ■ )  + 

■&unitnuin='  +  parent.GetCookieCUNITNUM')  +  '■&daykey=" 
+  parent .GetCookie ( “DAYKEY" ) ; 

) 

} 

else{ 

var  newlocation  =  ■/scripts/dbinl.exe?teinplate=icubase/welcoine.dbin" ; 

parent .  left .  location  =  "  /scripts/dbinl-.exe?teinplate=icubase/select  .dbin" ; 

} 


parent .right . location=newlocation; 
</script> 

</BODY> 

</HTML> 
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- - - 

<!—  — > 

<!—  — > 

<! —  The  iCUBase  Main  Navigation  Screen  — > 

<!—  "> 

<! —  The  ICUBase  main  navigation  screen  appears  when  the  — > 

<! —  application  is  opened  and  essentially  sets  the  state  — > 

<! —  of  the  application  once  a  button  is  clicked.  The  — > 

<! —  JavaScript (TM)  setCookie  function  is  invoked  to  do  — > 

<! —  this.  State  1  =  New  Patient.  State  2  =  Progress  Note  — > 

<! —  State  3  =  Discharge  and  State  4  =  Quit  — > 

<! —  In  addition,  the  function  “hacks*  the  server  clock  — > 

<! —  to  determine  the  appropriate  DAYKEY  and  TODAYDAT  — > 

< ! —  variables  -  which  it  stores  in  the  cookie  — > 

<! —  — > 

<! —  Written  By  Joe  Mirrow  — > 

<!—  — > 

<! —  filename:  Select. dbm  — > 

<!—  — > 

<!—  — > 

<1 - - - > 

<html> 

<title>Selection  of  Admission  or  Progress  Note</title> 

<script> 


parent .DeleteNavs { ) ; 


//DONT  Get  the  DAYKEY  and  TODAYDAT  from  Javascript!  (client  dependent) 
//Because  it  gets  it  from  the  client  not  the  server  (DUH!) 

<DBQUERY  NAME=“clock“  DATASOURCE=“ ICUBase" 

SQL  =  “select  daydate  =  convert (char (12) .getdate (), 107)  +'  '+ 
convert (char (12) ,getdate() ,108) “> 

now  =  new  Date (“<DBOUTPUT>#clock.daydate#</dboutput>“ ) 

//alert (now) ; 

var  month  =  now.getMonth()+l; 
var  theday  =  now.getDate ( ) ; 
var  year  =  now.getYear () ; 
var  hour  =  now.getHours ( ) ; 
var  minute  =  now.getMinutes () ; 

var  TODAYDATl  =  month  +  “/“  +  theday  +  “/“  +  year; 
if  (TODAYDATl  !=  “0“  &&  TODAYDATl  !=  null)  { 

var  newdaykey  =  now.toGMTString ( ) ; 
var  DAYKEYl  =  Dat e. parse (newdaykey ) ; 

OldDAYKEY  =  parent . GetCookie ( “DAYKEY" ) 

OldTODAYDAT  =  parent .GetCookie ( “TODAYDAT" ) 
if  (OldDAYKEY  ==  null  II  OldTODAYDAT  ==  null){ 
parent . SetCookie ( “ DAYKEY “ ,  DAYKEYl ) ; 
parent . SetCookie ( “ TODAYDAT" ,  TODAYDATl ) ; 

} 

} 

else{ 

parent . left . location  =  “ /scripts/dbml . exe?template=icubase/select .dbm" 

} 

function  cheUigeState(theState) { 
snumValue=parseInt (theState, 10) ; 

if  (snumValue  ==1)  { 
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//  parent. store. state=l; 
parent . SetCookie ( "state* ,  1 ) ; 

//  parent.store.button[l]  =  true; 
parent . SetCookie ( "button [ 1] " ,  true) ; 

//var  Ret  =  parent. GetCookie("button[l] ■) ; 

//alert  (Ret); 

//  parent. store. prevnumValue  =  1; 
parent . SetCookie ( "prevnumValue" ,  1 ) ; 
parent . GetNumber ( ) ; 

parent .right . location=“ /scripts/dbml .exe?ten^late=icubase/demo3 .dbm"  + 
"&todaydat="  +  parent. GetCookie("TODAYDAT")  +  "&daykey="  + 
parent . GetCookie ( " DAYKEY " ) ; 

parent . left . location=" /scripts/dbml . exe?template=icubase/nav. dbm" ; 

> 

else  if  (snumValue  ==  2)  { 

//  parent. store. state  =  2; 
parent . SetCookie ( " state " ,  2 ) ; 

//parent. store. buttont2]  =  true; 
parent . SetCookie ( "button [2] " ,  true) ; 

//  parent. store. prevnumValue  =  2; 
parent . SetCookie { " prevnumValue " ,  2 ) ; 
parent .  GetNianber  ( ) ; 

parent . right . document . forms [ 0 ] . submit ( ) ; 

parent . left . location=" /scripts/dbml .exe?template=icubase/nav. dbm" ; 


} 


else  if  (snumValue  ==  3)  { 

//  parent. store. state  =  3; 
parent . SetCookie ( " state ",  3 ) ; 
parent . GetNumber ( ) ; 

parent . right . document . forms [ 0 ] . submit ( ) ; 

parent . left . location=" /scripts/dbml .exe?template=icubase/nav. dbm" ; 
/ /parent . store . discharge=true ; 

) 


else  if  (snumValue  ==  4)  { 
parent . close ( ) 

} 

} 

</script> 


<script> 

<! —  Page  Script 
var  mousetextl  = 
var  mousetext2  = 
var  mousetext3  = 
var  mousetext4  = 


'Enter  a  New  Admission'-; 

'Progress  Note  -  Select  a  Patient  to  Begin'; 
'Discharge  A  Patient  -  Select  a  Patient  To  Begin'; 
'  Quit ' ; 


document .write ( '<body  bgcolor=#ffffff>' ) 

document .write ( '<table  width=60  border=0  marginwidth=0  marginheight=0>' ) 
docvunent .write ( '<tr><td><A  HREF=" javascript : changeState (1) " 
onMouseOver= "window . parent . status=mousetext 1 ; return  true ; " xIMG 
SRC= • ht tp : / / chimera . med . unc . edu / icubase /admi tup .gif" 
BORDER=0></A></td></tr>' ) 

docvunent .write ( '<tr><td><A  HREF=“ javascript; changeState (2) “ 
onMouseOver= "window . parent . status=mousetext2 ; return  true ; " xIMG 
SRC= • ht tp : / / chimera . med . unc . edu / i cubas e /pgnup .gif" 
BORDER=Ox/Ax/tdx/tr>' ) 


126 


document .write { '<tr><td><A  HREF=* javascript : changeState (3 ) " 
onMouseOver="window. parent .status=mousetext3 ;return  true; “xIMG 
SRC= "http : / /chimera .med . unc . edu/icubase/dischargeup . gi f “ 
BORDER=0></A></td></tr>' ) 

document.write('<tr><td><A  HREF=" javascript; changeState (4) ■ 
onMouseOver=“window. parent  .status=mousetext4  ;return  true;  “xIMG 
SRC= “http: //chimera. med. unc.edu/icubase/guit .gif “ 
BORDER=Ox/Ax/tdx/tr>' ) 
document .write ( '</table> ' ) 
document .write ( '</body> ' ) 

</script> 

</html> 
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- - - 

<!—  "> 

<1 —  — > 

<! —  The  ICUBase  Store  Screen  — > 

<!—  — > 

<! —  The  store  screen  is  not  included  in  the  ICUBase  — > 

<! —  application  but  is  referenced  here  so  that  future  — > 

<! —  programmers  know  why  not.  Store.dbm  was  used  to  store  — > 

<! —  state  and  button  variables  that  are  now  stored  in  the  — > 

<1 —  cookie.  Store  was  included  in  its  own  1  pixel  fram  — > 

<! —  so  it  did  not  appear  on  the  users  screen.  The  problem  — > 

<! —  with  this  setup  was  that  store  lost  all  of  its  data  — > 

<1 —  when  the  screen  was  resized  -  causing  the  application  — > 

<! —  to  crash.  This  does  not  happen  using  the,  cookie  — > 

<!—  --> 

<! —  Written  By  Joe  Mirrow  — > 

<1 —  — > 

<! —  filename:  store.dbm  — > 

<!—  "> 

<!—  — > 

- - - 

<html> 

<title>Store  Frame</title> 

<body  bgcolor=*#fff fff '■> 

<script> 

frame  =  new  Array (5); 
frame  [1]  =  ' '  ; 
frame  [2 3  = 
frame [3 3  =  ' ' ; 
frame  [4  3  = 
frame  [53  = 

frametext  =  new  Array (5); 
frametext [13  =  ' ' ; 
frametext  [23  = 
frametext [3 3  = 
frametext [43  = 
frametext [53  =  ' ' ; 

</script> 

</html> 
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<1  — 
<i  — 
<1  — 
<i  — 

<  i  — 
< !  — 

<  I  — 

<  i  — 

<  i  — 
<1  — 
<i  — 

<  i  — 

<1  — 

<  I  — 

<  I  — 

<1 


_ _ 

The  ICUBase  Vital  Signs  Screen 

The  vital  signs  screen  processes  information  for  three  --> 
tables  in  the  ICUBase  database:  DAILYVITALS,  DAILYVENT  --> 
and  DAILYLABS.  This  screen  is  very  similar  to  the  --> 
standalone  ICUBase  application  so  no  attempts  were  made--> 
to  alter  the  information. 

Written  By  Joe  Mirrow  — > 

filename:  vitalsl.dbm  — > 

_ _ 


<!DOCTYPE  HTML  PUBLIC  “ -//IETF/ /DTD  HTML//EN"> 


<DBQUERY  NAME= "VENTMODE “  DATASOURCE= " ICUBase " 

SQL  =  "SELECT  CHOICE  FROM  POPUP  WHERE  F I EL D= 'VENTMODE '  ORDER  by 
CHOICE;  "> 


<DBQUERY  NAME= "patient"  DATASOURCE= " ICUBase" 

SQL  =  "SELECT  FNAME,  LNAME  from  PATIENT  WHERE 
UNITNUM= '  #ur  1 .  UNITNUM#  '  "  > 

<DBQUERY  NAME="ADMDC"  DATASOURCE=: "  ICUBase  " 

SQL  =  "SELECT  ADMDATE,  H_ADMDAT,  UNITNUM  FROM  ADMDC  WHERE 
KNUMBER=#ur  1 .  KNUMBER# "  > 

<DBQUERY  NAME= "VITALS"  DATASOURCE= " ICUBase" 

SQL  =  "SELECT  ART_HC03 ,  ART_C02 ,  ART_02 ,  SBP,  DBP,  HR,  CVP,  WEDGE, 

CARD  OUT 

'tMAX,  RR,  FI02,  PS,  ART_PH,  FLUIDS_IN,  FLUIDS_OUT  FROM 
DAILYVITALS 

WHERE  UNITNUM='#url. UNITNUM#'  AND  DAYKEY=#url .DAYKEY#  AND 
TODAYDAT= ' #url . TODAYDAT# '  AND  KNUMBER=#url. KNUMBER# "> 

<DBQUERY  NAME="LABS“  DATASOURCE= “ ICUBase" 

SQL  =  "SELECT  NA,  CL,  HEMOGLOBIN, 

WBC,  K,  HC03,  CREAT,  ACREAT,  HCT,  PLATELETS,  ALBUMIN,  PHOSPHATE 
FROM  DAILYLABS  WHERE  UNITNUM= ' #url . UNITNUM# '  AND 
DAYKEY=#url. DAYKEY#  AND 

TODAYDAT= ' #url . TODAYDAT# '  AND  KNUMBER=#ur 1 . KNUMBER# " > 


<DBQUERY  NAME="VENT"  DATASOURCE=" ICUBase" 

SQL  =  "SELECT  VENTMODE,  VENT_RATE,  TIDAL_VOL,  PEEP,  VEN_SAT 
FROM  DAILYVENT  WHERE  UNITNUM= ' #url . UNITNUM# '  AND 
DAYKEY=#url. DAYKEY#  AND 

TODAYDAT= ' #ur 1 . TODAYDAT# ' AND  KNUMBER=#ur 1 . KNUMBER# " > 


<DBSET  #POTASSIUM#  =  #LABS.K#> 

<html> 

<head><title>Vital  Signs  Screen</title> 
</head> 
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<body  bgcolor=#f f f f f f> 

<fonn  action  =  /scripts/dbinl.exe?teinplate=icubase/adinit.dbin 
method="POST"> 

<table  width=100%> 

<DBOUTPUT> 

<tr><td  width=25%>Patient:  # PATIENT. FNAME#  #PATIENT.LNAME#</td><td 
width=25%>Unit  ##:  #ADMDC.UNITNUM#</td><td  width=25%>Admitted  to 
Hospital:  iDateFormat (ADMDC .H_ADMDAT) #</td><td  width=25%>ICU  Date: 

#Dat  eFormat ( ADMDC . ADMDATE )#</td></tr> 

<  /  DBOUTPUTX  / 1  able> 

<font  size=3><strong>Vital  Signs</strong></font> 

<DBOUTPUT> 

<table  width=100%> 

<tr><td  width=ll%><font  size=3>SBP</font></td><td  width=ll%><font 
size=3>DBP</font></td><td  width=ll%><font  size=3>HR</font></td><td 
width=ll%><font  size=3>CVP</f ontx/tdxtd  width=ll%xfont 
size=3>PCWP</fontx/tdxtd  width=ll%xf ont  size=3>CO</f ontx/tdxtd 
width=ll%xfont  size=3>Tmax</f ontx/tdxtd  width=12%xfont 
size=3>RR</fontx/tdx/tr> 

<trxtd  width=ll%x input  type^text  size=3  inaxlength=3  naine="SBP" 
value="#vitals  .SBP#"x/tdxtd  width=ll%xinput  type=text  size=3 
maxlength=3  name=“DBP“  value=“#vitals  .DBP#“x/tdxtd  width=ll%x input 
typ©=ztext  size=3  inaxlength=3  naine="HR"  value=“#vitals .HR#“x/tdxtd 
width=ll%xinput  type=text  size=3  maxlength=3  naine="CVP" 
value="#vitals  .CVP#“x/tdxtd  width=ll%xinput  type=text  size=3 
inaxlength=3  name=“PCWP“  value=“#vitals  .WEDGE#“x/tdxtd  width=ll%xinput 
type=text  size=5  inaxlength=5  naine="CO" 

value="#vitals  ,CARD_OUT#''x/tdxtd  width=ll%xinput  type=text  size=5 
maxlength=5  name="TMAX"  value="#vitals  .  TMAX#  "x/tdxtd  width=12%xinput 
type=text  size=3  maxlength=3  name="RR“  value="#vitals.RR#">  </tdx/tr> 
</tablex/DBOUTPUT> 

<font  size=3xstrong>Ventilatory  Parameters  :  </strongx/font> 

<table  width=100%> 

<DBOUTPUT> 

<trxtd  width=10%>Vent  Mode:</tdxtd  align=right 

width=8%>F10<sub>2</sub>:</tdxtd  width=10%x input  type=text  size=5 
maxlength=5  name="FI02”  value="#vitals  .FI02#”x/tdxtd  align=right 
width=10%>Vent  Rate:</tdxtd  width=9%xinput  type=text  size=4 
maxlength=4  name=“VENTRATE"  value="#VENT.VENT_RATE#"x/tdxtd 
align=right  width=8%>TV:  </tdxtd  width=9%x input  type=text  size=3 
maxlength=3  name=“TV"  value=''#VENT.TIDAL_VOL#" x/tdxtd  align=right 
width=9%>PEEP:  </tdxtd  width=9%x input  type=text  size=3  maxlength=3 
name=“PEEP“  value=“#VENT. PEEP# "x/tdxtd  align=right  width=9%>Sat : 
</tdxtd  width=9%x  input  type=text  size=3  maxlength=3  name="VEN_SAT" 
value= “ #VENT . VEN_SAT# " x / tdx /tr> 

<trxtd  width=10%xselect  name=  "VENTMODE"  size=l> 

<opt ion>#VENT . VENTMODE# 

</DBOUTPUT> 

<DBOUTPUT  QUERY= "VENTMODE "> 

<opt ion>#CHOICE# 

</DBOUTPUT> 

<DBOUTPUT> 

</selectx/tdxtd  align=right  width=8%x/tdxtd  width=10%xstrong>Blood 
Gas</strongx/tdxtd  align=right  width=10%>pH:</tdxtd  width=9%xinput 
type=text  size=5  maxlength=5  name="PH"  value="#vitals .ART_PH#" x/tdxtd 
align=right  width=8%>pO<subxfont  size=2>2  :</fontx/subx/tdxtd 
width=9%xinput  type=text  size=3  maxlength=3  name="P02" 
value="#vitals  .ART_02#"x/tdxtd  align=right  width=9%>pC0<subxf ont 
size=2>2</fontx/sub>:</tdxtd  width=9%xinput  type=text  size=3 
maxlength=3  name="PC02"  value=“#vitals .  ART_C02#“x/tdxtd  width=9% 
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align=right>HCO<sub><font  size=2>3</font></sub>:</td><td  width=9%><input 
type=tGxt  size=5  inaxlength=5  naine=“HC03“ 
value=“ #vitals . ART_HC03# " ></td></tr> 

</table> 

<font  size=3><strong>Fluid  Balance</strong></font> 

<table  width=100%> 

<tr><td  width=33%><font  size=3>Fluid  Input:  </font><input  type=text 
size=7  inaxlength=7  name="  fluidinput"  value=“  #vitals  .FLUIDS_IN#  “x/tdxtd 
width=33%xfont  size=3>Fluid  Output:  </fontxinput  type=text  size=7 
maxlength=7  name=*fluidoutput"  value="# vitals  .FLUIDS_OUT#  "x/tdxtd 
width=3  4%x/tdx/tr> 

</table> 

<font  size=3xstrong>Laboratory  Values  :</strongx/font> 

<table  width=100%> 

<trxtd  align=center  width=12%xfont  si2e=3>Na  </fontx/tdxtd 
align=center  width=13%xfont  size=3>Cl</fontx/tdxtd  align=center 
width=12%xfont  size=3>Albuinin</fontx/tdxtd  align=center 
width=13%xfont  size=3>Phosphate</fontx/tdxtd  align^center 
width=12%xfont  size=3>Hgb</fontx/tdxtd  align=center  width=13%xfont 
size=3>WBC</fontx/tdxtd  align=center  width=25%x/tdx/tr> 

<trxtd  align=center  width=12%xinput  type=text  size=3  inaxlength=3 
name="NA“  value=“#labs.NA#"x/tdxtd  align=center  width=14%xinput 
type=text  slze=3  iiiaxlength=3  naine="Cl"  value="#labs .CL#“x/tdxtd 
align=center  width=12%xinput  type=text  size=3  maxlength=3 
name=  "ALBUMIN"  value=“#labs .ALBUMIN#"x/tdxtd  align=center 
width=14%xinput  type=text  size=3  inaxlength=3  naine=" PHOSPHATE" 
value="#labs .phosphate#"x/tdxtd  align=center  width=12%xinput 
type=text  sizG=4  inaxlength=4  naine="HGB" 

value="#labs. HEMOGLOBIN# "x/tdxtd  align=center  width=15%xinput 
type=text  size=4  inaxlength=4  name="WBC"  value="#labs .WBC#"x/tdxtd 
al ign=center  width=2 5%x  / tdx  / tr> 

<trxtd  align=center  width=12%xinput  type=text  size=4  maxlength=4 
name="K"  value=“#POTASSIUM#“  x/tdxtd  align=center  width=14%x input 
type=text  sizG=5  maxlength=5  naine="LHC03 "  value="#labs  .HC03#“x/tdxtd 
align=:center  width=12%xinput  type=tGXt  size=5  inaxlength=5  name="CR" 
value="#labs. GREAT# "x/tdxtd  align=center  width=14%xselect 
name=“ACUTECHANGE"  size=l> 

<opt ion># labs . ACREAT# 

<option> 

<option>N 

<option>Y 

</select> 

</tdxtd  align=center  width=12%xinput  type=text  size=4  maxlength=4 
name="HCT"  value=  "# labs  .HCT#“ x/tdxtd  align=center  width=15%xinput 
type=text  sizG=4  iiiaxlength=4  naine="PLT" 

value="#labs. PLATELETS# "x/tdxtd  align=center  width=25%> 

</tdx/tr> 

<trxtd  align=centGr  width=12%xfont  sizG=3>K</fontx/tdxtd 
align=center  width=14%xfont  size=3>HC0</f ontxsubxfont 
size=3>3</fontx/subx/tdxtd  align=center  width=12%xfont 
size=3>Cr</fontx/tdxtd  align=center  width=14%xfont  size=3>Acute 
Chg?</fontx/tdxtd  align=CGnter  width=12%xfont 
size=3>Hct</fontx/tdxtd  align=center  width=15%xfont 
size=3>PLT</fontx/tdxtd  align=center  width=25%xf ont 
size=3x/fontx/tdx/tr> 

</DBOUTPUT> 

</table> 
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<input  type=" hidden"  name=KNUMBER 

value= " <DBOUTPUT>#ur 1 . KNUMBER#< /DBOUTPUT> " > 

<input  type= "hidden"  name=TODAYDAT 

value= “ <DBOUTPUT>#ur 1 . todaydat #< /DBOUTPUT> " > 

< input  type=" hidden"  name=UNITNUM 

value= " <DBOUTPUT>#ur 1 . unitnum#</DBOUTPUT> " > 

<input  type="hidden"  name=DAYKEY 

value= " <DBOUTPUT>#url . daykey #</DBOUTPUT> " > 

<input  type="hidden"  naine=screen  value="advitals"> 
</fonn> 

</body> 

</htinl> 
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— 

— 

— 

The  ICUBase  Welcome  Screen 

— 

The  ICUBase  Welcome  screen  provides  a 

list  of 

active 

— 

-- 

patients  in  the  database  for  the  user 

to  select. 

— 

-- 

The  selection  is  processed  for  states 

2  and  3 

(see 

— 

— 

select. dbm)  by  the  progress. dbm  screen. 

— 

Written  By  Joe  Mirrow 

-- 

— 

filename:  welcome. dbm 

-- 

— 

— 

< 

<html> 

<head> 

<title>Welcoine</title></head> 
<body  bgcolor=#f f f f f f> 
<center> 

<h2  >We  1  coine<br  > 
to<br> 

ICUBasG<br></h2> 


<br><br>  . 

Instructions:  Select  a  patient  to  Enter  a  Progress  Note  or  DischargG<br> 
and  click  the  Appropriate  Button  on  the  Left  Side  of  the  Screen  or  click 
New  Adinission<br><br><br> 

Patient  Name,  Unit  Number 

<DBQUERY  NAME="getpatients'‘  Datasource  =  "ICUBASE" 

SQL  =  “Select  admdc .unitnum,  patient . f name,  patient . Iname  from 
admdc, patient  where 

admdc. active  =  1  and  admdc .unitnum  =  patient .unitnum  and 
patient .Iname  <>  ''  and  patient . fname  <>  ''  ”> 

<form  action  =  /scripts/dbml.exe?template=icubase/progress.dbm 
method=:“POST"> 

<select  name= “patients"  size  =  10> 

<DBOUTPUT  QUERY= " getpat ient s " > 

<option>#getpatients . fname#  #getpatients . Iname# ,  #getpatients .unitnum# 
</DBOUTPUT> 

</select> 

</form> 

</center> 

</body> 

<html> 
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